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

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

Author: romain
Date: 2010-11-25 13:57:41 +0100 (Thu, 25 Nov 2010)
New Revision: 2522

Modified:
   pkg/Rcpp/R/Module.R
Log:
update

Modified: pkg/Rcpp/R/Module.R
===================================================================
--- pkg/Rcpp/R/Module.R	2010-11-25 12:28:32 UTC (rev 2521)
+++ pkg/Rcpp/R/Module.R	2010-11-25 12:57:41 UTC (rev 2522)
@@ -228,10 +228,16 @@
             }
             
         }
-        storage[[ clname ]] <- .get_Module_Class( module, clname, xp )
     }
     module$refClassGenerators <- generators
     
+    for( i in seq_along(classes) ){
+        clname <- as.character(classes[[i]])
+        demangled_name <- sub( "^Rcpp_", "", clname )
+        storage[[ demangled_name ]] <- .get_Module_Class( module, demangled_name, xp )
+    }
+    module$refClassGenerators <- generators
+    
     # functions
     functions <- .Call( Module__functions_names, xp )
     for( fun in functions ){