Fixed the "get old model results" error

R/R/model.R

@@ -74,7 +74,7 @@ robyn_run <- function(InputCollect,
 
   hyper_fixed <- all(sapply(InputCollect$hyperparameters, length) == 1)
   if (hyper_fixed & is.null(dt_hyper_fixed)) {
-    stop("hyperparameters can't be all fixed for hyperparameter optimisation. If you want to get old model result, pleaseprovide only 1 model / 1 row from OutputCollect$resultHypParam or pareto_hyperparameters.csv from previous runs")
+    stop("hyperparameters can't be all fixed for hyperparameter optimisation. If you want to get old model result, please provide only 1 model / 1 row from OutputCollect$resultHypParam or pareto_hyperparameters.csv from previous runs")
   }
   hypParamSamName <- hyper_names(adstock = InputCollect$adstock, all_media = InputCollect$all_media)
 
@@ -263,6 +263,7 @@ robyn_run <- function(InputCollect,
   message(paste0("Exporting all charts into directory: ", plot_folder, "/", plot_folder_sub))
 
   message(">>> Plotting summary charts...")
+  local_name <- names(InputCollect$hyperparameters)
   if (!hyper_fixed) {
 
     ## plot prophet
@@ -306,7 +307,6 @@ robyn_run <- function(InputCollect,
     }
 
     ## plot hyperparameter sampling distribution
-    local_name <- names(InputCollect$hyperparameters)
     resultHypParam.melted <- melt.data.table(resultHypParam[, c(local_name, "robynPareto"), with = FALSE], id.vars = c("robynPareto"))
 
     pSamp <- ggplot(data = resultHypParam.melted, aes(x = value, y = variable, color = variable, fill = variable)) +

demo/demo.R

@@ -437,7 +437,7 @@ Response2/Spend2 # ROI for search 81k
 #### Optional: get old model results
 
 # Get old hyperparameters and select model
-dt_hyper_fixed <- fread("~/Desktop/2021-07-29 00.56 init/pareto_hyperparameters.csv")
+dt_hyper_fixed <- data.table::fread("~/Desktop/2021-07-29 00.56 init/pareto_hyperparameters.csv")
 select_model <- "1_24_5"
 dt_hyper_fixed <- dt_hyper_fixed[solID == select_model]