fix: save custom_params regardless the case #271

laresbernardo · laresbernardo · commit 74dddc48ba8b · 2022-01-28T11:40:59.000-05:00
diff --git a/R/R/inputs.R b/R/R/inputs.R
@@ -294,8 +294,7 @@ robyn_inputs <- function(dt_input = NULL,
       nevergrad_algo = nevergrad_algo,
       trials = trials,
       hyperparameters = hyperparameters,
-      calibration_input = calibration_input,
-      custom_params = list(...)
+      calibration_input = calibration_input
     )
 
     ### Use case 1: running robyn_inputs() for the first time
@@ -328,6 +327,7 @@ robyn_inputs <- function(dt_input = NULL,
       output <- robyn_engineering(InputCollect = InputCollect, ...)
     }
   }
+  output$custom_params <- list(...)
   return(output)
 }
 

Original file line number	Diff line number	Diff line change
`@@ -294,8 +294,7 @@ robyn_inputs <- function(dt_input = NULL,`
`294`	`294`	`nevergrad_algo = nevergrad_algo,`
`295`	`295`	`trials = trials,`
`296`	`296`	`hyperparameters = hyperparameters,`
`297`		`- calibration_input = calibration_input,`
`298`		`- custom_params = list(...)`
	`297`	`+ calibration_input = calibration_input`
`299`	`298`	`)`
`300`	`299`
`301`	`300`	`### Use case 1: running robyn_inputs() for the first time`
`@@ -328,6 +327,7 @@ robyn_inputs <- function(dt_input = NULL,`
`328`	`327`	`output <- robyn_engineering(InputCollect = InputCollect, ...)`
`329`	`328`	`}`
`330`	`329`	`}`
	`330`	`+ output$custom_params <- list(...)`
`331`	`331`	`return(output)`
`332`	`332`	`}`
`333`	`333`