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

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

Author: romain
Date: 2010-07-09 15:00:43 +0200 (Fri, 09 Jul 2010)
New Revision: 1849

Modified:
   pkg/Rcpp/R/Module.R
Log:
small fix

Modified: pkg/Rcpp/R/Module.R
===================================================================
--- pkg/Rcpp/R/Module.R	2010-07-09 12:34:38 UTC (rev 1848)
+++ pkg/Rcpp/R/Module.R	2010-07-09 13:00:43 UTC (rev 1849)
@@ -96,7 +96,7 @@
 
 setMethod( "new", "C++Class", function(Class,...){
 	out <- new_CppObject_xp( Class, ... )
-	new( out$cl, pointer = out$xp, cppclass = Class at pointer, module = Class at module )
+	new( as.character(Class), pointer = out$xp, cppclass = Class at pointer, module = Class at module )
 } )
 
 MethodInvoker <- function( x, name ){
@@ -104,7 +104,6 @@
 		res <- .External( "Class__invoke_method", x at cppclass, name, x at pointer, ... , PACKAGE = "Rcpp" )
 		if( isTRUE( res$void ) ) invisible(NULL) else res$result
 	}
-	
 }
 
 dollar_cppobject <- function(x, name){