creating a test function for comparison with C-compiled binary

Author: Sancar Adali

R/RcppExports.R

@@ -2,6 +2,6 @@
 # Generator token: 10BE3573-1514-4C36-9D1C-5A225CD40393
 
 run_graph_match <- function(A, B, algorithm_params) {
-    .Call(RGraphM_run_graph_match, A, B, algorithm_params)
+    .Call(`_RGraphM_run_graph_match`, A, B, algorithm_params)
 }
 

src/Makevars.win

@@ -29,7 +29,7 @@ SOURCES=  graphmatch_rcpp.cpp RcppExports.cpp
 OBJECTS= $(SOURCES:.cpp=.o) RGraphM_init.o $(GRAPHM_OBJ_REL)
 
 .PHONY: all $(GRAPHM_OBJ_REL)
-all:  $(GRAPHM_OBJ_REL) $(SHLIB) 
+all:  $(GRAPHM_OBJ_REL) $(SHLIB) graphm_bin
 $(SHLIB): $(OBJECTS)
 graphmatch_rcpp.cpp:  $(GRAPHM_OBJ_REL)
 ./RcppExports.o:  $(GRAPHM_OBJ_REL)
@@ -72,6 +72,9 @@ graphm/./algorithm_umeyama.o:   algorithm_umeyama.cpp algorithm_umeyama.h
 graphm/./algorithm_unif.o:   algorithm_unif.cpp algorithm_unif.h
 		cd graphm && $(CXX) $(PKG_CPPFLAGS) -I"$(LIB_GSL)\include" -c algorithm_unif.cpp  -o ./algorithm_unif.o
 
+graphm_bin:  graphm/bin/graphm
+graphm/bin/graphm:  $(GRAPHM_OBJ_REL)
+	cd graphm &&   $(CXX) $(PKG_CPPFLAGS) -c main.cpp -o bin/graphm
 
 clean: cleanb
 

src/RGraphM_init.c

@@ -5,10 +5,10 @@
 
 
 /* .Call calls */
-extern SEXP RGraphM_run_graph_match(SEXP, SEXP, SEXP);
+extern SEXP _RGraphM_run_graph_match(SEXP, SEXP, SEXP);
 
 static const R_CallMethodDef CallEntries[] = {
-    {"RGraphM_run_graph_match", (DL_FUNC) &RGraphM_run_graph_match, 3},
+    {"_RGraphM_run_graph_match", (DL_FUNC) &_RGraphM_run_graph_match, 3},
     {NULL, NULL, 0}
 };
 

src/RcppExports.cpp

@@ -8,7 +8,7 @@ using namespace Rcpp;
 
 // run_graph_match
 Rcpp::List run_graph_match(const RcppGSL::Matrix& A, const RcppGSL::Matrix& B, const Rcpp::List& algorithm_params);
-RcppExport SEXP RGraphM_run_graph_match(SEXP ASEXP, SEXP BSEXP, SEXP algorithm_paramsSEXP) {
+RcppExport SEXP _RGraphM_run_graph_match(SEXP ASEXP, SEXP BSEXP, SEXP algorithm_paramsSEXP) {
 BEGIN_RCPP
     Rcpp::RObject rcpp_result_gen;
     Rcpp::RNGScope rcpp_rngScope_gen;

src/graphmatch_rcpp.cpp

@@ -1,4 +1,4 @@
-// # Copyright (C) Sancar Adali 2015-2017
+// # Copyright (C) Sancar Adali 2015-
 
 #include <Rcpp.h>
 #include <RcppGSL.h>