use suffic _Impl of actual C++ routine for fastLm

eddelbuettel · eddelbuettel · commit fd107e9b70d2 · 2015-08-21T15:12:00.000-05:00
diff --git a/R/RcppExports.R b/R/RcppExports.R
@@ -1,8 +1,8 @@
 # This file was generated by Rcpp::compileAttributes
 # Generator token: 10BE3573-1514-4C36-9D1C-5A225CD40393
 
-fastLm <- function(X, y, type) {
-    .Call('RcppEigen_fastLm', PACKAGE = 'RcppEigen', X, y, type)
+fastLm_Impl <- function(X, y, type) {
+    .Call('RcppEigen_fastLm_Impl', PACKAGE = 'RcppEigen', X, y, type)
 }
 
 eigen_version <- function(single) {
diff --git a/R/fastLm.R b/R/fastLm.R
@@ -21,7 +21,7 @@ fastLmPure <- function(X, y, method = 0L) {
 
     stopifnot(is.matrix(X), is.numeric(y), NROW(y)==nrow(X))
 
-    .Call("RcppEigen_fastLm", X, y, method, colnames(X), PACKAGE="RcppEigen")
+    .Call("RcppEigen_fastLm_Impl", X, y, method, colnames(X), PACKAGE="RcppEigen")
 }
 
 fastLm <- function(X, ...) UseMethod("fastLm")
diff --git a/inst/unitTests/runit.fastLm.R b/inst/unitTests/runit.fastLm.R
@@ -24,27 +24,27 @@
 
 test.fastLm <- function() {
     data(trees, package="datasets")
-    flm0 <- .Call("RcppEigen_fastLm",
+    flm0 <- .Call("RcppEigen_fastLm_Impl",
                   cbind(1, log(trees$Girth)),
                   log(trees$Volume), 0L,
                   PACKAGE="RcppEigen")
-    flm1 <- .Call("RcppEigen_fastLm",
+    flm1 <- .Call("RcppEigen_fastLm_Impl",
                   cbind(1, log(trees$Girth)),
                   log(trees$Volume), 1L,
                   PACKAGE="RcppEigen")
-    flm2 <- .Call("RcppEigen_fastLm",
+    flm2 <- .Call("RcppEigen_fastLm_Impl",
                   cbind(1, log(trees$Girth)),
                   log(trees$Volume), 2L,
                   PACKAGE="RcppEigen")
-    flm3 <- .Call("RcppEigen_fastLm",
+    flm3 <- .Call("RcppEigen_fastLm_Impl",
                   cbind(1, log(trees$Girth)),
                   log(trees$Volume), 3L,
                   PACKAGE="RcppEigen")
-    flm4 <- .Call("RcppEigen_fastLm",
+    flm4 <- .Call("RcppEigen_fastLm_Impl",
                   cbind(1, log(trees$Girth)),
                   log(trees$Volume), 4L,
                   PACKAGE="RcppEigen")
-    flm5 <- .Call("RcppEigen_fastLm",
+    flm5 <- .Call("RcppEigen_fastLm_Impl",
                   cbind(1, log(trees$Girth)),
                   log(trees$Volume), 5L,
                   PACKAGE="RcppEigen")
diff --git a/src/RcppExports.cpp b/src/RcppExports.cpp
@@ -6,16 +6,16 @@
 
 using namespace Rcpp;
 
-// fastLm
-Rcpp::List fastLm(Rcpp::NumericMatrix X, Rcpp::NumericVector y, int type);
-RcppExport SEXP RcppEigen_fastLm(SEXP XSEXP, SEXP ySEXP, SEXP typeSEXP) {
+// fastLm_Impl
+Rcpp::List fastLm_Impl(Rcpp::NumericMatrix X, Rcpp::NumericVector y, int type);
+RcppExport SEXP RcppEigen_fastLm_Impl(SEXP XSEXP, SEXP ySEXP, SEXP typeSEXP) {
 BEGIN_RCPP
     Rcpp::RObject __result;
     Rcpp::RNGScope __rngScope;
     Rcpp::traits::input_parameter< Rcpp::NumericMatrix >::type X(XSEXP);
     Rcpp::traits::input_parameter< Rcpp::NumericVector >::type y(ySEXP);
     Rcpp::traits::input_parameter< int >::type type(typeSEXP);
-    __result = Rcpp::wrap(fastLm(X, y, type));
+    __result = Rcpp::wrap(fastLm_Impl(X, y, type));
     return __result;
 END_RCPP
 }
diff --git a/src/fastLm.cpp b/src/fastLm.cpp
@@ -240,7 +240,7 @@ namespace lmsol {
 
 // This defines the R-callable function 'fastLm' 
 // [[Rcpp::export]]
-Rcpp::List fastLm(Rcpp::NumericMatrix X, Rcpp::NumericVector y, int type) {
+Rcpp::List fastLm_Impl(Rcpp::NumericMatrix X, Rcpp::NumericVector y, int type) {
     return lmsol::fastLm(X, y, type); 
 }
 

Original file line number	Diff line number	Diff line change
`@@ -1,8 +1,8 @@`
`1`	`1`	`# This file was generated by Rcpp::compileAttributes`
`2`	`2`	`# Generator token: 10BE3573-1514-4C36-9D1C-5A225CD40393`
`3`	`3`
`4`		`-fastLm <- function(X, y, type) {`
`5`		`- .Call('RcppEigen_fastLm', PACKAGE = 'RcppEigen', X, y, type)`
	`4`	`+fastLm_Impl <- function(X, y, type) {`
	`5`	`+ .Call('RcppEigen_fastLm_Impl', PACKAGE = 'RcppEigen', X, y, type)`
`6`	`6`	`}`
`7`	`7`
`8`	`8`	`eigen_version <- function(single) {`
Original file line number	Diff line number	Diff line change
`@@ -21,7 +21,7 @@ fastLmPure <- function(X, y, method = 0L) {`
`21`	`21`
`22`	`22`	`stopifnot(is.matrix(X), is.numeric(y), NROW(y)==nrow(X))`
`23`	`23`
`24`		`- .Call("RcppEigen_fastLm", X, y, method, colnames(X), PACKAGE="RcppEigen")`
	`24`	`+ .Call("RcppEigen_fastLm_Impl", X, y, method, colnames(X), PACKAGE="RcppEigen")`
`25`	`25`	`}`
`26`	`26`
`27`	`27`	`fastLm <- function(X, ...) UseMethod("fastLm")`
Original file line number	Diff line number	Diff line change
`@@ -240,7 +240,7 @@ namespace lmsol {`
`240`	`240`
`241`	`241`	`// This defines the R-callable function 'fastLm'`
`242`	`242`	`// [[Rcpp::export]]`
`243`		`-Rcpp::List fastLm(Rcpp::NumericMatrix X, Rcpp::NumericVector y, int type) {`
	`243`	`+Rcpp::List fastLm_Impl(Rcpp::NumericMatrix X, Rcpp::NumericVector y, int type) {`
`244`	`244`	`return lmsol::fastLm(X, y, type);`
`245`	`245`	`}`
`246`	`246`