Registering native routines for R 3.4

DESCRIPTION

@@ -1,8 +1,8 @@
 Package: pse
 Type: Package
 Title: Parameter Space Exploration with Latin Hypercubes
-Version: 0.4.6
-Date: 2016-07-19
+Version: 0.4.7
+Date: 2017-06-11
 Author: Andre Chalom, Paulo Inacio Knegt Lopez de Prado
 Maintainer: Andre Chalom <[email protected]>
 Depends:

NAMESPACE

@@ -32,4 +32,4 @@ export(tell)
 import(Hmisc)
 import(graphics)
 import(stats)
-useDynLib(pse, corcorr)
+useDynLib(pse, .registration = "TRUE", .fixes = "C_")

R/LHScorcorr.R

@@ -38,7 +38,7 @@
 #'  \emph{arXiv}:1210.6278 [q-bio.QM]
 #' @export
 #' @import stats
-#' @useDynLib pse, corcorr
+#' @useDynLib pse, .registration = "TRUE", .fixes = "C_"
 LHScorcorr <-
 	function (vars, COR = 0, method=c("Pearson", "Spearman"), eps = 0.005, echo=FALSE, maxIt = 0) {
     method <- match.arg(method)
@@ -76,7 +76,7 @@ internal.LHScorcorr <- function (vars, COR, l, eps, it, echo, maxIt) {
   }
   if (echo==T) cat(paste("Info: Correlation correction being made for l =",l,"/",M, "\n"))
   # Here we start correcting the correlation for var[,l]
-  V <- .C(corcorr, vars=as.double(as.matrix(vars)),cor=as.double(COR), N=as.integer(N), M=as.integer(M), l=as.integer(l), FLAGSTOP=as.integer(0))
+  V <- .C(C_corcorr, vars=as.double(as.matrix(vars)),cor=as.double(COR), N=as.integer(N), M=as.integer(M), l=as.integer(l), FLAGSTOP=as.integer(0))
   vars <- as.data.frame(matrix(V$vars, nrow=N, ncol=M))
   names(vars) <- my.names
   if (V$FLAGSTOP == 1) { # Convergence, going for next

src/init.c

@@ -0,0 +1,21 @@
+#include <stdlib.h> 
+#include <R_ext/Rdynload.h>
+#include <Rinternals.h>
+
+void corcorr (double *vars, double *cor, int * N, int * M, int * l, int * FLAGSTOP); 
+
+/* Registering native routine for R 3.4.0 */
+static R_NativePrimitiveArgType C_types[] = {
+    REALSXP, REALSXP, INTSXP, INTSXP, INTSXP, INTSXP
+};
+
+static const R_CMethodDef cMethods[] = {
+   {"corcorr", (DL_FUNC) &corcorr, 6, C_types},
+   {NULL, NULL, 0, NULL}
+};
+
+void R_init_pse(DllInfo *dll) {
+   R_registerRoutines(dll, cMethods, NULL, NULL, NULL);
+     R_useDynamicSymbols(dll, FALSE);
+     R_forceSymbols(dll, TRUE);
+}