Displaying 1 result from an estimated 1 matches for "epsline2".
Did you mean:
epsline
2011 Mar 23
3
Sweave: multiple graphic formats, e.g. win.metafile
...(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,
deparse(quote(
if (options$emf && .Platform$OS.type == "windows") {
grDevices::win.metafile(file=paste(chunkprefix, "emf", sep=".&...