updates to testRcppClass

this example still triggers messages from R-devel CMD check
after discussion with jmc, concluded that these may stem from the R side

Author: eddelbuettel

ChangeLog

@@ -1,3 +1,20 @@
+2017-04-11  Dirk Eddelbuettel  <edd@debian.org>
+
+        * inst/inst/unitTests/testRcppClass/src/init.c (R_init_testRcppClass): Call
+        R_registerRoutines() and R_useDynamicSymbols(); also ensure
+        _rcpp_module_boot_* is registered for each module
+        * inst/unitTests/testRcppClass/NAMESPACE: Added registration
+
+        * inst/unitTests/testRcppClass/DESCRIPTION (Title): Title case
+
+        * inst/unitTests/testRcppClass/R/rcpp_hello_world.R (rcpp_hello_world):
+        Call the renamed C++ function
+        * inst/unitTests/testRcppClass/src/rcpp_hello_world.cpp (rcpp_hello_world_cpp):
+        Renamed C++ function to be distinct from R function calling it
+        * inst/unitTests/testRcppClass/src/rcpp_hello_world.h: Ditto
+        * inst/unitTests/testRcppClass/man/rcpp_hello_world.Rd: Alias renamed
+        C++ function
+
 2017-04-09  Dirk Eddelbuettel  <edd@debian.org>
 
         * inst/unitTests/testRcppModule/src/init.c (R_init_testRcppModule): Call

inst/unitTests/testRcppClass/DESCRIPTION

@@ -1,6 +1,6 @@
 Package: testRcppClass
 Type: Package
-Title: Some examples using Rcpp classes and loadModule()
+Title: Some Examples using Rcpp Classes and loadModule()
 Version: 0.1
 Date: 2012-04-06
 Author: John Chambers
@@ -14,4 +14,4 @@ Depends: R (>= 2.15.0)
 Imports: Rcpp (>= 0.8.5), methods
 LinkingTo: Rcpp
 Packaged: 2012-04-14 18:42:28 UTC; jmc
-
+NeedsCompilation: yes

inst/unitTests/testRcppClass/NAMESPACE

@@ -1,4 +1,4 @@
-useDynLib(testRcppClass)
+useDynLib(testRcppClass, .registration=TRUE)
 import(Rcpp,methods)
 
 export(genWorld, stdNumeric, rcpp_hello_world,

inst/unitTests/testRcppClass/R/rcpp_hello_world.R

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

inst/unitTests/testRcppClass/src/init.c

@@ -0,0 +1,27 @@
+#include <R.h>
+#include <Rinternals.h>
+#include <stdlib.h> // for NULL
+#include <R_ext/Rdynload.h>
+
+/* FIXME: 
+   Check these declarations against the C/Fortran source code.
+*/
+
+/* .Call calls */
+extern SEXP rcpp_hello_world_cpp();
+extern SEXP _rcpp_module_boot_NumEx();
+extern SEXP _rcpp_module_boot_RcppClassModule();
+extern SEXP _rcpp_module_boot_stdVector();
+
+static const R_CallMethodDef CallEntries[] = {
+    {"rcpp_hello_world_cpp", (DL_FUNC) &rcpp_hello_world_cpp, 0},
+    {"_rcpp_module_boot_NumEx", (DL_FUNC) &_rcpp_module_boot_NumEx, 0},
+    {"_rcpp_module_boot_RcppClassModule", (DL_FUNC) &_rcpp_module_boot_RcppClassModule, 0},
+    {"_rcpp_module_boot_stdVector", (DL_FUNC) &_rcpp_module_boot_stdVector, 0},
+    {NULL, NULL, 0}
+};
+
+void R_init_testRcppModule(DllInfo *dll) {
+    R_registerRoutines(dll, NULL, CallEntries, NULL, NULL);
+    R_useDynamicSymbols(dll, FALSE);
+}

inst/unitTests/testRcppClass/src/rcpp_hello_world.cpp

@@ -1,6 +1,6 @@
 #include "rcpp_hello_world.h"
 
-SEXP rcpp_hello_world(){
+SEXP rcpp_hello_world_cpp(){
     using namespace Rcpp ;
 
     CharacterVector x = CharacterVector::create( "foo", "bar" )  ;

inst/unitTests/testRcppClass/src/rcpp_hello_world.h

@@ -3,6 +3,6 @@
 
 #include <Rcpp.h>
 
-RcppExport SEXP rcpp_hello_world() ;
+RcppExport SEXP rcpp_hello_world_cpp() ;
 
 #endif