[Rinside-commits] r175 - pkg/src

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

Author: edd
Date: 2010-07-09 22:32:03 +0200 (Fri, 09 Jul 2010)
New Revision: 175

Modified:
   pkg/src/RInside.cpp
Log:
corrected loading of Rcpp


Modified: pkg/src/RInside.cpp
===================================================================
--- pkg/src/RInside.cpp	2010-07-09 19:38:06 UTC (rev 174)
+++ pkg/src/RInside.cpp	2010-07-09 20:32:03 UTC (rev 175)
@@ -121,7 +121,10 @@
     autoloads();    		// Force all default package to be dynamically required */
 
     // load Rcpp
-    Rf_eval( Rf_mkString("suppressMessages(library(Rcpp))"), R_GlobalEnv ); 
+    //Rf_eval( Rf_mkString("suppressMessages(library(Rcpp))"), R_GlobalEnv ); 
+    Rf_eval(Rf_lang2(Rf_install( "suppressMessages" ), 
+		     Rf_lang2(Rf_install( "require" ), Rf_mkString("Rcpp"))),
+	    R_GlobalEnv);
     
     if ((argc - optind) > 1){    	// for argv vector in Global Env */
 	Rcpp::CharacterVector s_argv( argv+(1+optind), argv+argc );