Merge pull request #103 from RcppCore/feature/embedded-r-flag

Thanks!

Author: eddelbuettel

ChangeLog

@@ -1,3 +1,8 @@
+2014-02-01  JJ Allaire  <jj@rstudio.org>
+
+        * R/Attributes.R: Embedded R code chunks in sourceCpp can
+        now be disabled
+
 2014-01-31  Dirk Eddelbuettel  <edd@debian.org>
 
 	* vignettes/Rcpp-FAQ.Rnw: Render code with background boxen

R/Attributes.R

@@ -20,6 +20,7 @@
 sourceCpp <- function(file = "",
                       code = NULL,
                       env = globalenv(),
+                      embeddedR = TRUE,
                       rebuild = FALSE,
                       showOutput = verbose,
                       verbose = getOption("verbose")) {
@@ -169,7 +170,7 @@ sourceCpp <- function(file = "",
     }
 
     # source the embeddedR
-    if (length(context$embeddedR) > 0) {
+    if (embeddedR && (length(context$embeddedR) > 0)) {
         srcConn <- textConnection(context$embeddedR)
         setwd(rWorkingDir) # will be reset by previous on.exit handler
         source(file=srcConn, echo=TRUE)

inst/NEWS.Rd

@@ -33,6 +33,7 @@
     \itemize{
       \item Embedded R code chunks in sourceCpp are now executed within
       the working directory of the C++ source file.
+      \item Embedded R code chunks in sourceCpp can now be disabled.
     }
     \item Changes in Rcpp documentation:
     \itemize{

man/sourceCpp.Rd

@@ -9,8 +9,8 @@ and RCPP_MODULE declarations. A shared library is then built and its exported fu
 }
 \usage{
 sourceCpp(file = "", code = NULL, env = globalenv(), 
-          rebuild = FALSE, showOutput = verbose, 
-          verbose = getOption("verbose"))
+          embeddedR = TRUE, rebuild = FALSE, 
+          showOutput = verbose, verbose = getOption("verbose"))
 }
 \arguments{
   \item{file}{
@@ -21,6 +21,9 @@ sourceCpp(file = "", code = NULL, env = globalenv(),
 }
   \item{env}{
     Environment where the R functions and modules should be made available.
+}
+  \item{embeddedR}{
+    \code{TRUE} to run embedded R code chunks.
 }
   \item{rebuild}{
     Force a rebuild of the shared library.