[Rcpp-commits] r2723 - in pkg/Rcpp: . R

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

Author: romain
Date: 2010-12-05 18:29:28 +0100 (Sun, 05 Dec 2010)
New Revision: 2723

Modified:
   pkg/Rcpp/ChangeLog
   pkg/Rcpp/R/Rcpp.package.skeleton.R
Log:
fix in Rcpp.package.skeleton

Modified: pkg/Rcpp/ChangeLog
===================================================================
--- pkg/Rcpp/ChangeLog	2010-12-05 17:00:53 UTC (rev 2722)
+++ pkg/Rcpp/ChangeLog	2010-12-05 17:29:28 UTC (rev 2723)
@@ -3,6 +3,9 @@
     * inst/include/Rcpp/module/Module_generated_class_constructor.h: the default 
     constructor was always considered valid because of the use of &yes instead
     of &yes_arity<0>
+    
+    * R/Rcpp.package.skeleton.R: Rcpp.package.skeleton( "foo", example_code = FALSE)
+    did not work properly
 
 2010-12-05  Dirk Eddelbuettel  <edd at debian.org>
 

Modified: pkg/Rcpp/R/Rcpp.package.skeleton.R
===================================================================
--- pkg/Rcpp/R/Rcpp.package.skeleton.R	2010-12-05 17:00:53 UTC (rev 2722)
+++ pkg/Rcpp/R/Rcpp.package.skeleton.R	2010-12-05 17:29:28 UTC (rev 2723)
@@ -29,8 +29,10 @@
 		assign( "Rcpp.fake.fun", function(){}, envir = env )
 		if( example_code ){
 			assign( "rcpp_hello_world", function(){}, envir = env )
+			remove_hello_world <- TRUE
+		} else {
+		    remove_hello_world <- TRUE 
 		}
-		remove_hello_world <- TRUE
 	} else {
 		if( ! "rcpp_hello_world" %in% list ){
 			call[["list"]] <- c( "rcpp_hello_world", call[["list"]] )