Displaying 1 result from an estimated 1 matches for "setupsrc".
Did you mean:
setups
2011 Mar 23
3
Sweave: multiple graphic formats, e.g. win.metafile
...ought it would be best to extend the typical 'RweaveLatex' driver by an option 'emf' - like eps and pdf. So, here is the result of some handicrafts:
RweaveLatexEMF <- function ()
{
# add option emf (= FALSE) and set default for eps to FALSE
setup <- utils::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(eva...