update testRcppClass as well to cleanly build without NOTES or WARNINGS

Author: eddelbuettel

inst/unitTests/testRcppClass/DESCRIPTION

@@ -3,14 +3,14 @@ Type: Package
 Title: Some examples using Rcpp classes and loadModule()
 Version: 0.1
 Date: 2012-04-06
-Author: JMC
-Maintainer:  <[email protected]>
+Author: John Chambers
+Maintainer: John Chambers <[email protected]>
 Description: Some examples from the Rcpp Modules documentation, with
  load-time creation of classes that extend C++ classes and with
  explicit loading of some objects.
 License: GPL(>=2)
 LazyLoad: yes
-Depends: R (>= 2.15.0), Rcpp, methods
+Depends: R (>= 2.15.0)
 Imports: Rcpp (>= 0.8.5), methods
 LinkingTo: Rcpp
 Packaged: 2012-04-14 18:42:28 UTC; jmc

inst/unitTests/testRcppClass/NAMESPACE

@@ -1,7 +1,5 @@
 useDynLib(testRcppClass)
-## until 2.15.1 the namespace load fails to find patterns at load time
-## exportPattern("^[[:alpha:]]+")
-import(Rcpp)
+import(Rcpp,methods)
 
 export(genWorld, stdNumeric, rcpp_hello_world,
        bar, foo, baz, baz1)

inst/unitTests/testRcppClass/R/load.R

@@ -1,7 +1,7 @@
 setRcppClass("World", module = "yada", fields = list(more = "character"),
-         methods = list(test = function(what) message("Testing: ", what, "; ", more)),
-         saveAs = "genWorld"
-         )
+             methods = list(test = function(what) message("Testing: ", what, "; ", more)),
+             saveAs = "genWorld"
+             )
 
 setRcppClass("stdNumeric", "vec", "stdVector")
 
@@ -46,6 +46,6 @@ evalqOnLoad({
 
 ## For R 2.15.1 and later this also works. Note that calling loadModule() triggers
 ## a load action, so this does not have to be placed in .onLoad() or evalqOnLoad().
-#loadModule("NumEx", TRUE)
-#loadModule("yada", TRUE)
-#loadModule("stdVector", TRUE)
+loadModule("NumEx", TRUE)
+loadModule("yada", TRUE)
+loadModule("stdVector", TRUE)

inst/unitTests/testRcppClass/R/rcpp_hello_world.R

@@ -1,5 +1,5 @@
 
 rcpp_hello_world <- function(){
-	.Call( "rcpp_hello_world", PACKAGE = "testLoadModule" )
+    .Call("rcpp_hello_world", PACKAGE = "testRcppClass")
 }
 

inst/unitTests/testRcppClass/man/Rcpp_class_examples.Rd

@@ -0,0 +1,30 @@
+\name{Rcpp Modules Examples}
+\alias{Num}
+\alias{World}
+\alias{bar}
+\alias{bla}
+\alias{baz}
+\alias{bla1}
+\alias{baz1}
+\alias{bla2}
+\alias{foo}
+\alias{vec}
+\alias{hello}
+\alias{genWorld}
+\alias{stdNumeric}
+\alias{Rcpp_Num-class}
+\alias{Rcpp_World-class}
+\alias{Rcpp_vec-class}
+\alias{stdNumeric-class}
+\alias{World-class}
+\alias{C++Object-class}
+\title{
+  Functions and Objects created by Rcpp Modules Example
+}
+\description{
+  These function and objects are accessible from R via the Rcpp Modules mechanism
+  which creates them based on the declaration in the C++ file.  
+}
+\seealso{
+  The Rcpp Modules vignette.
+}

inst/unitTests/testRcppClass/src/stdVector.cpp

@@ -1,3 +1,5 @@
+// -*- mode: C++; c-indent-level: 4; c-basic-offset: 4; indent-tabs-mode: nil; -*-
+
 #include "rcpp_hello_world.h"
 
 // convenience typedef
@@ -9,16 +11,16 @@ void vec_assign( vec* obj, Rcpp::NumericVector data ){
 }
 
 void vec_insert( vec* obj, int position, Rcpp::NumericVector data){
-	vec::iterator it = obj->begin() + position ;
-	obj->insert( it, data.begin(), data.end() ) ;
+    vec::iterator it = obj->begin() + position ;
+    obj->insert( it, data.begin(), data.end() ) ;
 }
 
 Rcpp::NumericVector vec_asR( vec* obj ){
-	return Rcpp::wrap( *obj ) ;
+    return Rcpp::wrap( *obj ) ;
 }
 
 void vec_set( vec* obj, int i, double value ){
-	obj->at( i ) = value ;
+    obj->at( i ) = value ;
 }
 
 void vec_resize( vec* obj, int n){ obj->resize( n ) ; }