add "preloadData" argument to runJaspResults

jasp-stats · Sep 26, 2024 · bd67821 · bd67821
1 parent b078ca6
commit bd67821
Showing 1 changed file with 5 additions and 4 deletions.
diff --git a/R/common.R b/R/common.R
@@ -69,7 +69,7 @@ sendFatalErrorMessage <- function(name, title, msg)
 
 
 #' @export
-runJaspResults <- function(name, title, dataKey, options, stateKey, functionCall = name) {
+runJaspResults <- function(name, title, dataKey, options, stateKey, functionCall = name, preloadData=FALSE) {
   # resets jaspGraphs::graphOptions & options after this function finishes
   setOptionsCleanupHook()
 
@@ -104,9 +104,10 @@ runJaspResults <- function(name, title, dataKey, options, stateKey, functionCall
   }
 
   analysis    <- eval(parse(text=functionCall))
-
-  dataset <- .fromRCPP(".readDataSetRequestedNative")
-
+  dataset     <- NULL
+
+  if(preloadData)
+    dataset <- .fromRCPP(".readDataSetRequestedNative")
 
   # ensure an analysis always starts with a clean hashtable of computed jasp Objects
   emptyRecomputed()