RInside problem fixed

FabrizioSandri · FabrizioSandri · commit 9d7413e634f0 · 2022-06-21T19:04:38.000+02:00
diff --git a/R/fun_harness_create.R b/R/fun_harness_create.R
@@ -73,20 +73,21 @@ deepstate_fun_create<-function(package_path,function_name,sep="infun"){
     comment <- paste0("// AUTOMATICALLY GENERATED BY RCPPDEEPSTATE PLEASE DO NOT EDIT BY HAND, INSTEAD EDIT\n// ",
                       fun_name,"_DeepState_TestHarness_generation.cpp and ",fun_name,"_DeepState_TestHarness_checks.cpp\n\n")
     
-    #write_to_file <-
     if(sep == "generation" || sep == "checks"){
       write(headers,file_path,append = TRUE)
     }else{
       write(paste0(write_to_file,comment,headers),file_path,append = TRUE)
     }
+
+    write_to_file <- paste0(write_to_file,"RInside Rinstance;\n");  # create a single RInside instance at the beginning
     write_to_file <-paste0(write_to_file,pt[1,pt$prototype],"\n")
     testname<-gsub(".","",paste0(function_name,"_test",sep=""))
     unittest<-gsub(".","",paste0(packagename,"_deepstate_test"))
     write_to_file <- paste0(write_to_file,"\n","TEST(",unittest,",",testname,")","{","\n")
     #obj <-gsub( "\\s+", " " ,paste(in_package,tolower(in_package),";","\n"))
     #write(obj,filename,append = TRUE)
     indent <- "  "
-    write_to_file<-paste0(write_to_file,indent,"RInside R;\n",indent,"std::cout << #input starts# << std::endl;\n")
+    write_to_file<-paste0(write_to_file,indent,"std::cout << #input starts# << std::endl;\n")
     proto_args <-""
     for(argument.i in 1:nrow(functions.rows)){
       arg.type <- gsub(" ","",functions.rows [argument.i,argument.type])
