[Rcpp-commits] r2960 - pkg/Rcpp/inst/unitTests
noreply at r-forge.r-project.org
noreply at r-forge.r-project.org
Tue Apr 5 19:09:52 CEST 2011
Author: edd
Date: 2011-04-05 19:09:52 +0200 (Tue, 05 Apr 2011)
New Revision: 2960
Modified:
pkg/Rcpp/inst/unitTests/runit.Module.R
Log:
removed one commented-out line; emacs rearranged some more whitespace
Modified: pkg/Rcpp/inst/unitTests/runit.Module.R
===================================================================
--- pkg/Rcpp/inst/unitTests/runit.Module.R 2011-04-05 17:04:48 UTC (rev 2959)
+++ pkg/Rcpp/inst/unitTests/runit.Module.R 2011-04-05 17:09:52 UTC (rev 2960)
@@ -23,8 +23,7 @@
}
if( Rcpp:::capabilities()[["Rcpp modules"]] ) {
-# if( FALSE ){
-
+
test.Module <- function(){
inc <- '
@@ -78,9 +77,9 @@
function( "bla2" , &bla2 ) ;
class_<World>( "World" )
-
+
.constructor()
-
+
.method( "greet", &World::greet )
.method( "set", &World::set )
.method( "clear", &clearWorld )
@@ -131,9 +130,9 @@
using namespace Rcpp ;
class_<Num>( "Num" )
-
- .constructor()
-
+
+ .constructor()
+
// read and write property
.property( "x", &Num::getX, &Num::setX )
@@ -173,8 +172,8 @@
class_<Number>( "Number" )
- .constructor()
-
+ .constructor()
+
// read and write data member
.field( "x", &Number::x )
@@ -221,7 +220,7 @@
// No default: .default_constructor()
.constructor<double,double>()
-
+
.method( "get" , &Randomizer::get ) ;
}
More information about the Rcpp-commits
mailing list