system update

hemberg-lab · Oct 4, 2017 · 9da8c96 · 9da8c96
1 parent 1c8ff03
commit 9da8c96
Show file tree

Hide file tree

Showing 2 changed files with 24 additions and 10 deletions.
diff --git a/R/RcppExports.R b/R/RcppExports.R
@@ -7,7 +7,7 @@
 #' 
 #' @param x A numeric matrix.
 ED1 <- function(x) {
-    .Call('SC3_ED1', PACKAGE = 'SC3', x)
+    .Call('_SC3_ED1', PACKAGE = 'SC3', x)
 }
 
 #' Compute Euclidean distance matrix by columns
@@ -17,7 +17,7 @@ ED1 <- function(x) {
 #' 
 #' @param x A numeric matrix.
 ED2 <- function(x) {
-    .Call('SC3_ED2', PACKAGE = 'SC3', x)
+    .Call('_SC3_ED2', PACKAGE = 'SC3', x)
 }
 
 #' Consensus matrix computation
@@ -26,7 +26,7 @@ ED2 <- function(x) {
 #' 
 #' @param dat a matrix containing clustering solutions in columns
 consmx <- function(dat) {
-    .Call('SC3_consmx', PACKAGE = 'SC3', dat)
+    .Call('_SC3_consmx', PACKAGE = 'SC3', dat)
 }
 
 #' Graph Laplacian calculation
@@ -36,7 +36,7 @@ consmx <- function(dat) {
 #' @param A symmetric matrix
 #' @export
 norm_laplacian <- function(A) {
-    .Call('SC3_norm_laplacian', PACKAGE = 'SC3', A)
+    .Call('_SC3_norm_laplacian', PACKAGE = 'SC3', A)
 }
 
 #' Matrix left-multiplied by its transpose
@@ -45,6 +45,6 @@ norm_laplacian <- function(A) {
 #' 
 #' @param x Numeric matrix.
 tmult <- function(x) {
-    .Call('SC3_tmult', PACKAGE = 'SC3', x)
+    .Call('_SC3_tmult', PACKAGE = 'SC3', x)
 }
 
diff --git a/src/RcppExports.cpp b/src/RcppExports.cpp
@@ -8,7 +8,7 @@ using namespace Rcpp;
 
 // ED1
 arma::mat ED1(const arma::mat& x);
-RcppExport SEXP SC3_ED1(SEXP xSEXP) {
+RcppExport SEXP _SC3_ED1(SEXP xSEXP) {
 BEGIN_RCPP
     Rcpp::RObject rcpp_result_gen;
     Rcpp::RNGScope rcpp_rngScope_gen;
@@ -19,7 +19,7 @@ END_RCPP
 }
 // ED2
 Rcpp::NumericMatrix ED2(const Rcpp::NumericMatrix& x);
-RcppExport SEXP SC3_ED2(SEXP xSEXP) {
+RcppExport SEXP _SC3_ED2(SEXP xSEXP) {
 BEGIN_RCPP
     Rcpp::RObject rcpp_result_gen;
     Rcpp::RNGScope rcpp_rngScope_gen;
@@ -30,7 +30,7 @@ END_RCPP
 }
 // consmx
 arma::mat consmx(const arma::mat dat);
-RcppExport SEXP SC3_consmx(SEXP datSEXP) {
+RcppExport SEXP _SC3_consmx(SEXP datSEXP) {
 BEGIN_RCPP
     Rcpp::RObject rcpp_result_gen;
     Rcpp::RNGScope rcpp_rngScope_gen;
@@ -41,7 +41,7 @@ END_RCPP
 }
 // norm_laplacian
 arma::mat norm_laplacian(arma::mat A);
-RcppExport SEXP SC3_norm_laplacian(SEXP ASEXP) {
+RcppExport SEXP _SC3_norm_laplacian(SEXP ASEXP) {
 BEGIN_RCPP
     Rcpp::RObject rcpp_result_gen;
     Rcpp::RNGScope rcpp_rngScope_gen;
@@ -52,7 +52,7 @@ END_RCPP
 }
 // tmult
 arma::mat tmult(arma::mat x);
-RcppExport SEXP SC3_tmult(SEXP xSEXP) {
+RcppExport SEXP _SC3_tmult(SEXP xSEXP) {
 BEGIN_RCPP
     Rcpp::RObject rcpp_result_gen;
     Rcpp::RNGScope rcpp_rngScope_gen;
@@ -61,3 +61,17 @@ BEGIN_RCPP
     return rcpp_result_gen;
 END_RCPP
 }
+
+static const R_CallMethodDef CallEntries[] = {
+    {"_SC3_ED1", (DL_FUNC) &_SC3_ED1, 1},
+    {"_SC3_ED2", (DL_FUNC) &_SC3_ED2, 1},
+    {"_SC3_consmx", (DL_FUNC) &_SC3_consmx, 1},
+    {"_SC3_norm_laplacian", (DL_FUNC) &_SC3_norm_laplacian, 1},
+    {"_SC3_tmult", (DL_FUNC) &_SC3_tmult, 1},
+    {NULL, NULL, 0}
+};
+
+RcppExport void R_init_SC3(DllInfo *dll) {
+    R_registerRoutines(dll, NULL, CallEntries, NULL, NULL);
+    R_useDynamicSymbols(dll, FALSE);
+}