[Rcpp-commits] r2737 - pkg/RcppClassic/inst/unitTests

noreply at r-forge.r-project.org noreply at r-forge.r-project.org
Wed Dec 8 04:11:01 CET 2010


Author: edd
Date: 2010-12-08 04:11:00 +0100 (Wed, 08 Dec 2010)
New Revision: 2737

Modified:
   pkg/RcppClassic/inst/unitTests/runit.RcppResultSet.R
Log:
once more plugin for cxxfunction set to RcppClassic which help :)


Modified: pkg/RcppClassic/inst/unitTests/runit.RcppResultSet.R
===================================================================
--- pkg/RcppClassic/inst/unitTests/runit.RcppResultSet.R	2010-12-08 03:07:57 UTC (rev 2736)
+++ pkg/RcppClassic/inst/unitTests/runit.RcppResultSet.R	2010-12-08 03:11:00 UTC (rev 2737)
@@ -357,7 +357,7 @@
     	RcppResultSet rs;
     	rs.add("", iv);
     	return(rs.getSEXP());'
-    funx <- cxxfunction(signature(x="numeric"), foo, plugin = "Rcpp" )
+    funx <- cxxfunction(signature(x="numeric"), foo, plugin = "RcppClassic" )
 	checkEquals( funx(x=2:5), 2:5*2L, msg = "as<std::vector<int> >(integer) via RcppResultSet" )
     checkEquals( funx(x=2:5+.1), 2:5*2L, msg = "as<std::vector<int> >(numeric) via RcppResultSet" )
     checkEquals( funx(x=as.raw(2:5)), 2:5*2L, msg = "as<std::vector<int> >(raw) via RcppResultSet" )



More information about the Rcpp-commits mailing list