if (FALSE) {
tf <- tempfile()
dump( "glm" , file = tf )
# rendering in html
highlight( tf, output = stdout(),
renderer = renderer_html() )
# rendering in latex
highlight( tf, output = stdout(),
renderer = renderer_latex() )
# Sweave driver using syntax highlighting
if( require( grid ) ){
v <- vignette( "grid", package = "grid" )$file
file.copy( v, "grid.Snw" )
Sweave( "grid.Snw", driver= HighlightWeaveLatex() )
system( "pdflatex grid.tex" )
if (.Platform$OS.type == "windows"){
shell.exec( "grid.pdf" )
} else {
system(paste(shQuote(getOption("pdfviewer")), "grid.pdf" ),
wait = FALSE)
}
}
unlink( tf )
}
Run the code above in your browser using DataLab