[Rinside-commits] r173 - in pkg: inst src

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

Author: edd
Date: 2010-07-09 21:32:38 +0200 (Fri, 09 Jul 2010)
New Revision: 173

Modified:
   pkg/inst/ChangeLog
   pkg/src/RInside.cpp
Log:
more silent loading of Rcpp


Modified: pkg/inst/ChangeLog
===================================================================
--- pkg/inst/ChangeLog	2010-07-09 14:11:15 UTC (rev 172)
+++ pkg/inst/ChangeLog	2010-07-09 19:32:38 UTC (rev 173)
@@ -1,16 +1,25 @@
+2010-07-09  Dirk Eddelbuettel  <edd at debian.org>
+
+	* src/RInside.cpp: Load Rcpp more quietly
+
+2010-07-05  Dirk Eddelbuettel  <edd at debian.org>
+
+	* inst/examples/standard/rinside_sample3.rcpp: Simpler with new Rcpp API
+	* inst/examples/standard/rinside_sample4.rcpp: Idem
+
 2010-06-16  Romain Francois <romain at r-enthusiasts.com>
 
-	* inst/examples/standard/rinside_sample9.cpp: new example illustrating 
+	* inst/examples/standard/rinside_sample9.cpp: new example illustrating
 	how to expose a C++ function to the embedded R
-	
-	* inst/examples/standard/rinside_module_sample0.cpp: new example illustrating 
+
+	* inst/examples/standard/rinside_module_sample0.cpp: new example illustrating
 	how to use an Rcpp module from RInside
 
 	* inst/include/*.h: moved the headers to include so that there is only one copy
-	
+
 	* inst/include/MemBuf.h: change from signature of add to use
-	const std::string& instead of const char* 
-	
+	const std::string& instead of const char*
+
 	* src/RInside.cpp: loading the Rcpp package
 
 2010-04-21  Dirk Eddelbuettel  <edd at debian.org>

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