add rcpp.cache.dir option for global cacheDir setting

Author: jjallaire

R/Attributes.R

@@ -23,7 +23,7 @@ sourceCpp <- function(file = "",
                       env = globalenv(),
                       embeddedR = TRUE,
                       rebuild = FALSE,
-                      cacheDir = tempdir(),
+                      cacheDir = getOption("rcpp.cache.dir", tempdir()),
                       cleanupCacheDir = FALSE,
                       showOutput = verbose,
                       verbose = getOption("verbose"),
@@ -238,7 +238,7 @@ cppFunction <- function(code,
                         includes = character(),
                         env = parent.frame(),
                         rebuild = FALSE,
-                        cacheDir = tempdir(),
+                        cacheDir = getOption("rcpp.cache.dir", tempdir()),
                         showOutput = verbose,
                         verbose = getOption("verbose")) {
 
@@ -342,7 +342,7 @@ evalCpp <- function(code,
                     plugins = character(), 
                     includes = character(),
                     rebuild = FALSE,
-                    cacheDir = tempdir(),
+                    cacheDir = getOption("rcpp.cache.dir", tempdir()),
                     showOutput = verbose,
                     verbose = getOption( "verbose" ) ){
 

man/cppFunction.Rd

@@ -8,7 +8,7 @@ Dynamically define an R function with C++ source code. Compiles and links a shar
 }
 \usage{
 cppFunction(code, depends = character(), plugins = character(), includes = character(),
-            env = parent.frame(), rebuild = FALSE, cacheDir = tempdir(), 
+            env = parent.frame(), rebuild = FALSE, cacheDir = getOption("rcpp.cache.dir", tempdir()), 
             showOutput = verbose, verbose = getOption("verbose"))
 }
 

man/evalCpp.Rd

@@ -9,9 +9,10 @@ Evaluates a C++ expression. This creates a C++ function using
 \code{\link{cppFunction}} and calls it to get the result. 
 }
 \usage{
-evalCpp(code, depends = character(), plugins = character(),
-        includes = character(), rebuild = FALSE, cacheDir = tempdir(),
+evalCpp(code, depends = character(), plugins = character(), includes = character(), 
+        rebuild = FALSE, cacheDir = getOption("rcpp.cache.dir", tempdir()),
         showOutput = verbose, verbose = getOption("verbose"))
+
 areMacrosDefined(names, depends = character(), includes = character(), 
         rebuild = FALSE, showOutput = verbose, 
         verbose = getOption("verbose"))

man/sourceCpp.Rd

@@ -8,11 +8,9 @@ Source C++ Code from a File or String
 and RCPP_MODULE declarations. A shared library is then built and its exported functions and Rcpp modules are made available in the specified environment.
 }
 \usage{
-sourceCpp(file = "", code = NULL, env = globalenv(),
-          embeddedR = TRUE, rebuild = FALSE, 
-          cacheDir = tempdir(), cleanupCacheDir = FALSE,
-          showOutput = verbose, verbose = getOption("verbose"),
-          dryRun = FALSE)
+sourceCpp(file = "", code = NULL, env = globalenv(), embeddedR = TRUE, rebuild = FALSE, 
+          cacheDir = getOption("rcpp.cache.dir", tempdir()), cleanupCacheDir = FALSE,
+          showOutput = verbose, verbose = getOption("verbose"), dryRun = FALSE)
 }
 \arguments{
   \item{file}{