Displaying 1 result from an estimated 1 matches for "sweavegetsyntax".
2010 Dec 14
1
embed Sweave driver in .Rnw file
...atex(),
syntax=getOption("SweaveSyntax"), ...)
{
@@ -28,7 +38,9 @@
else if(is.function(driver))
driver <- driver()
-
+ drv <- SweaveGetDriver(file)
+ if( !is.null(drv) ) driver <- drv
+
if(is.null(syntax))
syntax <- SweaveGetSyntax(file)
if(is.character(syntax))
This allows one to write something like this in their file:
%\SweaveDriver{ { require(highlight); HighlightWeaveLatex() } }
So that when calling :
> Sweave( "somefile.Rnw" )
the highlight driver is used instead of the default driver.
Could...