[Rcpp-commits] r2842 - pkg/Rcpp/R

[noreply at r-forge.r-project.org]

Author: dmbates
Date: 2011-01-06 22:07:48 +0100 (Thu, 06 Jan 2011)
New Revision: 2842

Modified:
   pkg/Rcpp/R/zzz.R
Log:
Don't call init_Rcpp_cache in the .onLoad function.


Modified: pkg/Rcpp/R/zzz.R
===================================================================
--- pkg/Rcpp/R/zzz.R	2011-01-06 21:06:34 UTC (rev 2841)
+++ pkg/Rcpp/R/zzz.R	2011-01-06 21:07:48 UTC (rev 2842)
@@ -18,7 +18,9 @@
 .dummyInstancePointer <- new.env() # just something permanent
 
 .onLoad <- function(libname, pkgname){
-    .Call("init_Rcpp_cache", PACKAGE = "Rcpp" )
+    ## Call to init_Rcpp_cache is not needed here as it is called in
+    ## R_init_Rcpp.  Calling it twice is potentially destructive
+#    .Call("init_Rcpp_cache", PACKAGE = "Rcpp" )
     minimum_svn_rev <- packageDescription( pkgname )[["MinimumSvnRev"]]
     # if( as.integer(R.version[["svn rev"]]) < as.integer(minimum_svn_rev)){
     #     packageStartupMessage(gettextf(paste("R version (%s) older than minimum required (%s)",