fix: bug when pareto_front was "auto" and refresh models

facebookexperimental · Oct 4, 2022 · 6587f65 · 6587f65
1 parent 4d1da7f
commit 6587f65
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 1 deletion.
diff --git a/R/R/clusters.R b/R/R/clusters.R
@@ -392,7 +392,7 @@ errors_scores <- function(df, balance = rep(1, 3)) {
     theme_lares()
 }
 
-.bootci <- function(samp, boot_n) {
+.bootci <- function(samp, boot_n = 1000) {
   if (length(samp) > 1) {
     samp_n <- length(samp)
     samp_mean <- mean(samp, na.rm = TRUE)

diff --git a/R/R/pareto.R b/R/R/pareto.R
@@ -73,6 +73,7 @@ robyn_pareto <- function(InputCollect, OutputModels,
   # Prepare parallel loop
   if (TRUE) {
     if (check_parallel()) registerDoParallel(OutputModels$cores) else registerDoSEQ()
+    if (hyper_fixed) pareto_fronts <- 1
     # Get at least 100 candidates for better clustering
     if ("auto" %in% pareto_fronts) {
       if (nrow(resultHypParam) <= pareto_models) {