search for: epsline1

Displaying 1 result from an estimated 1 matches for "epsline1".

Did you mean: epsline
2011 Mar 23
3
Sweave: multiple graphic formats, e.g. win.metafile
...quot;, "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) runcodesrc <- append(runcodesrc,...