Embedded R code chunks in sourceCpp are now executed within the working directory of the C++ source file.

Author: jjallaire

ChangeLog

@@ -1,3 +1,9 @@
+2014-01-31  JJ Allaire  <jj@rstudio.org>
+
+        * R/Attributes.R: Embedded R code chunks in sourceCpp are
+        now executed within the working directory of the C++ source
+        file.
+
 2014-01-31  Dirk Eddelbuettel  <edd@debian.org>
 
 	* man/Rcpp.package.skeleton.Rd: Also updated

R/Attributes.R

@@ -24,12 +24,16 @@ sourceCpp <- function(file = "",
                       showOutput = verbose,
                       verbose = getOption("verbose")) {
 
-    # resolve code into a file if necessary
+    # resolve code into a file if necessary. also track the working
+    # directory to source the R embedded code chunk within
     if (!missing(code)) {
+        rWorkingDir <- getwd() 
         file <- tempfile(fileext = ".cpp")
         con <- file(file, open = "w")
         writeLines(code, con)
         close(con)
+    } else {
+        rWorkingDir <- dirname(file)
     }
 
     # resolve the file path
@@ -167,6 +171,7 @@ sourceCpp <- function(file = "",
     # source the embeddedR
     if (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

@@ -29,6 +29,11 @@
       \item New \code{checkUserInterrupt()} function that provides a C++ friendly 
       implementation of \code{R_CheckUserInterrupt}.
     }
+    \item Changes in Rcpp attributes:
+    \itemize{
+      \item Embedded R code chunks in sourceCpp are now executed within
+      the working directory of the C++ source file.
+    }
     \item Changes in Rcpp documentation:
     \itemize{
       \item The Rcpp-FAQ and Rcpp-package vignettes have been updated and expanded.