search for: makeruncode

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...