added registration of cpp functions

pboesu · May 6, 2017 · 593b1c1 · 593b1c1
1 parent ab89baf
commit 593b1c1
Show file tree

Hide file tree

Showing 18 changed files with 90 additions and 99 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -21,7 +21,7 @@ Depends: R (>= 2.10)
 Imports:
     Rcpp
 SystemRequirements: C++11
-RoxygenNote: 5.0.1
+RoxygenNote: 6.0.1
 Suggests: testthat,
     knitr,
     rmarkdown,

diff --git a/NAMESPACE b/NAMESPACE
@@ -11,4 +11,4 @@ export(ucred_fv)
 export(ucred_mv)
 export(ucred_vv)
 importFrom(Rcpp,sourceCpp)
-useDynLib(rucrdtw)
+useDynLib(rucrdtw, .registration=TRUE)
diff --git a/NEWS.md b/NEWS.md
@@ -2,5 +2,6 @@
 
 * Added a `NEWS.md` file to track changes to the package.
 * Updated CITATION to reflect publication in JOSS
+* Native routines are registered now
 
 
diff --git a/man/rucrdtw.Rd b/man/rucrdtw.Rd
diff --git a/man/summary.ucrdtw.Rd b/man/summary.ucrdtw.Rd
diff --git a/man/summary.ucred.Rd b/man/summary.ucred.Rd
diff --git a/man/synthetic_control.Rd b/man/synthetic_control.Rd
diff --git a/man/ucrdtw_ff.Rd b/man/ucrdtw_ff.Rd
diff --git a/man/ucrdtw_fv.Rd b/man/ucrdtw_fv.Rd
diff --git a/man/ucrdtw_mv.Rd b/man/ucrdtw_mv.Rd
diff --git a/man/ucrdtw_vv.Rd b/man/ucrdtw_vv.Rd
diff --git a/man/ucred_ff.Rd b/man/ucred_ff.Rd
diff --git a/man/ucred_fv.Rd b/man/ucred_fv.Rd
diff --git a/man/ucred_mv.Rd b/man/ucred_mv.Rd
diff --git a/man/ucred_vv.Rd b/man/ucred_vv.Rd
diff --git a/rucrdtw.Rproj b/rucrdtw.Rproj
@@ -18,4 +18,4 @@ StripTrailingWhitespace: Yes
 BuildType: Package
 PackageUseDevtools: Yes
 PackageInstallArgs: --no-multiarch --with-keep.source
-PackageRoxygenize: rd,collate,namespace,vignette
+PackageRoxygenize: rd,collate,vignette
diff --git a/src/init.c b/src/init.c
@@ -0,0 +1,30 @@
+#include <R.h>
+#include <Rinternals.h>
+#include <stdlib.h> // for NULL
+#include <R_ext/Rdynload.h>
+
+/* .Call calls */
+extern SEXP rucrdtw_RcppExport_registerCCallable();
+extern SEXP rucrdtw_ucrdtw_ff(SEXP, SEXP, SEXP, SEXP);
+extern SEXP rucrdtw_ucrdtw_fv(SEXP, SEXP, SEXP);
+extern SEXP rucrdtw_ucrdtw_vv(SEXP, SEXP, SEXP, SEXP, SEXP);
+extern SEXP rucrdtw_ucred_ff(SEXP, SEXP, SEXP);
+extern SEXP rucrdtw_ucred_fv(SEXP, SEXP);
+extern SEXP rucrdtw_ucred_vv(SEXP, SEXP, SEXP);
+
+static const R_CallMethodDef CallEntries[] = {
+  {"rucrdtw_RcppExport_registerCCallable", (DL_FUNC) &rucrdtw_RcppExport_registerCCallable, 0},
+  {"rucrdtw_ucrdtw_ff",                    (DL_FUNC) &rucrdtw_ucrdtw_ff,                    4},
+  {"rucrdtw_ucrdtw_fv",                    (DL_FUNC) &rucrdtw_ucrdtw_fv,                    3},
+  {"rucrdtw_ucrdtw_vv",                    (DL_FUNC) &rucrdtw_ucrdtw_vv,                    5},
+  {"rucrdtw_ucred_ff",                     (DL_FUNC) &rucrdtw_ucred_ff,                     3},
+  {"rucrdtw_ucred_fv",                     (DL_FUNC) &rucrdtw_ucred_fv,                     2},
+  {"rucrdtw_ucred_vv",                     (DL_FUNC) &rucrdtw_ucred_vv,                     3},
+  {NULL, NULL, 0}
+};
+
+void R_init_rucrdtw(DllInfo *dll)
+{
+  R_registerRoutines(dll, NULL, CallEntries, NULL, NULL);
+  R_useDynamicSymbols(dll, FALSE);
+}
diff --git a/vignettes/using_rucrdtw.html b/vignettes/using_rucrdtw.html
Original file line number	Diff line number	Diff line change
Expand Up		@@ -2,5 +2,6 @@

		* Added a `NEWS.md` file to track changes to the package.
		* Updated CITATION to reflect publication in JOSS
		* Native routines are registered now