Displaying 1 result from an estimated 1 matches for "makeruncode".
2011 Mar 23
3
Sweave: multiple graphic formats, e.g. win.metafile
...ls::RweaveLatexSetup
setupsrc <- deparse(setup)
epsline <- grep("eps", setupsrc)
setupsrc[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\")", aft...