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

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

Author: romain
Date: 2010-06-01 11:06:32 +0200 (Tue, 01 Jun 2010)
New Revision: 1390

Modified:
   pkg/Rcpp/R/Rcpp.package.skeleton.R
Log:
minor changes to package skeleton

Modified: pkg/Rcpp/R/Rcpp.package.skeleton.R
===================================================================
--- pkg/Rcpp/R/Rcpp.package.skeleton.R	2010-06-01 08:57:32 UTC (rev 1389)
+++ pkg/Rcpp/R/Rcpp.package.skeleton.R	2010-06-01 09:06:32 UTC (rev 1390)
@@ -35,10 +35,14 @@
 	call <- match.call()
 	call[[1]] <- as.name("package.skeleton")
 	call[["namespace"]] <- namespace
+	# remove Rcpp specific arguments
 	if( "example_code" %in% names( call ) ){
-		# remove the example_code argument
 		call[["example_code"]] <- NULL
 	}
+	if( "module" %in% names( call ) ){
+		call[["module"]] <- NULL
+	}
+	
 	if( fake ){
 		call[["list"]] <- "Rcpp.fake.fun"
 	}