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

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

Author: romain
Date: 2011-04-05 18:00:28 +0200 (Tue, 05 Apr 2011)
New Revision: 2956

Modified:
   pkg/Rcpp/R/Module.R
Log:
forcing starting module when passed a DLLInfo object (useful for inline)

Modified: pkg/Rcpp/R/Module.R
===================================================================
--- pkg/Rcpp/R/Module.R	2011-04-05 11:05:59 UTC (rev 2955)
+++ pkg/Rcpp/R/Module.R	2011-04-05 16:00:28 UTC (rev 2956)
@@ -139,6 +139,7 @@
 }    
 
 Module <- function( module, PACKAGE = getPackageName(where), where = topenv(parent.frame()), mustStart = FALSE ) {
+    if(is(module, "DLLInfo") && missing(mustStart)) mustStart <- TRUE
     if(is(module, "Module")) {
         xp <- .getModulePointer(module, FALSE)
         if(!missing(PACKAGE))