Hidden option to access the size parameter to highlight, GH-28

cameronbracken · May 4, 2011 · 29a4b9a · 29a4b9a
1 parent 0cdf578
commit 29a4b9a
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/R/pgfSweaveDriver.R b/R/pgfSweaveDriver.R
@@ -384,7 +384,9 @@ pgfSweaveRuncode <- function(object, chunk, options) {
 
           highlight(parser.output=parser(text=dce),
             renderer=renderer_latex(document=FALSE),
-            output = chunkout, showPrompts=TRUE)
+            output = chunkout, showPrompts=TRUE, 
+            size=ifelse(is.null(getOption('highlight.size')),
+              "normalsize", getOption('highlight.size')))
 
         }
         beginSinput <- FALSE