[Phylobase-commits] r887 - in pkg: R src

[noreply at r-forge.r-project.org]

Author: francois
Date: 2014-03-19 05:02:53 +0100 (Wed, 19 Mar 2014)
New Revision: 887

Modified:
   pkg/R/RcppExports.R
   pkg/src/RcppExports.cpp
Log:
updated RcppExports to accommodate GetNCL

Modified: pkg/R/RcppExports.R
===================================================================
--- pkg/R/RcppExports.R	2014-03-19 04:01:28 UTC (rev 886)
+++ pkg/R/RcppExports.R	2014-03-19 04:02:53 UTC (rev 887)
@@ -77,3 +77,7 @@
     .Call('phylobase_checkTreeCpp', PACKAGE = 'phylobase', obj, opts)
 }
 
+GetNCL <- function(params, paramsVecR) {
+    .Call('phylobase_GetNCL', PACKAGE = 'phylobase', params, paramsVecR)
+}
+

Modified: pkg/src/RcppExports.cpp
===================================================================
--- pkg/src/RcppExports.cpp	2014-03-19 04:01:28 UTC (rev 886)
+++ pkg/src/RcppExports.cpp	2014-03-19 04:02:53 UTC (rev 887)
@@ -297,3 +297,19 @@
     return __sexp_result;
 END_RCPP
 }
+// GetNCL
+Rcpp::List GetNCL(SEXP params, SEXP paramsVecR);
+RcppExport SEXP phylobase_GetNCL(SEXP paramsSEXP, SEXP paramsVecRSEXP) {
+BEGIN_RCPP
+    SEXP __sexp_result;
+    {
+        Rcpp::RNGScope __rngScope;
+        Rcpp::traits::input_parameter< SEXP >::type params(paramsSEXP );
+        Rcpp::traits::input_parameter< SEXP >::type paramsVecR(paramsVecRSEXP );
+        Rcpp::List __result = GetNCL(params, paramsVecR);
+        PROTECT(__sexp_result = Rcpp::wrap(__result));
+    }
+    UNPROTECT(1);
+    return __sexp_result;
+END_RCPP
+}