fix: respect plot_folder value on robyn_refresh() #708 #649

Fixes #649. Thanks a lot @richin13 for this PR and fix!
facebookexperimental · Apr 25, 2023 · 3317a02 · 3317a02
1 parent 4dbbb14
commit 3317a02
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/R/R/refresh.R b/R/R/refresh.R
@@ -132,7 +132,11 @@ robyn_refresh <- function(json_file = NULL,
       listInit$InputCollect$refreshDepth <- refreshDepth <- length(attr(chainData, "chain"))
       listInit$OutputCollect$hyper_updated <- json$ExportedModel$hyper_updated
       Robyn[["listInit"]] <- listInit
-      objectPath <- json$ExportedModel$plot_folder
+      if (is.null(plot_folder)) {
+        objectPath <- json$ExportedModel$plot_folder
+      } else {
+        objectPath <- plot_folder
+      }
       refreshCounter <- 1 # Dummy for now (legacy)
     }
     if (!is.null(robyn_object)) {