R/makepdfoutput.R

Defines functions makepdfoutput

Documented in makepdfoutput

makepdfoutput <-
function(text){

textt <<- text

pdfoutput <- system.file("Sweave","pdfoutput.Snw",package="utils")

options(device.ask.default=FALSE)

today <- Sys.Date()


texname <- paste("pdfoutput",today,".tex",sep="",collapse="")

Sweave(file=pdfoutput,output=texname)

tools::texi2dvi(texname,pdf=TRUE,quiet=FALSE)


} # END FUNCTION

Try the NPMPM package in your browser

Any scripts or data that you put into this service are public.

NPMPM documentation built on May 29, 2017, 11:48 a.m.