Displaying 1 result from an estimated 1 matches for "runcodesrc".
2011 Mar 23
3
Sweave: multiple graphic formats, e.g. win.metafile
...epsline] <- sub("eps = TRUE", "eps = FALSE, emf = FALSE", setupsrc[epsline])
setup <- eval(parse(text=setupsrc))
# 'makeRweaveLatexCodeRunner' function
makeruncode <- function(evalFunc=utils::RweaveEvalWithOpt) {
runcode <- utils:::RweaveLatexRuncode
runcodesrc <- deparse(runcode)
epsline1 <- grep("cat(.. eps..)", runcodesrc)
runcodesrc <- append(runcodesrc, " if (options$emf) cat(\" emf\")", after=epsline1)
epsline2 <- grep("options\\$fig && options\\$eval", runcodesrc)
runcod...