Don't coerse delay_opts() to list

epiforecasts · Oct 19, 2023 · cdfc7e2 · cdfc7e2
1 parent 3942512
commit cdfc7e2
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/tests/testthat/test-estimate_infections.R b/tests/testthat/test-estimate_infections.R
@@ -22,7 +22,7 @@ default_estimate_infections <- function(..., add_stan = list(), delay = TRUE) {
 
   suppressWarnings(estimate_infections(...,
     generation_time = generation_time_opts(generation_time),
-    delays = ifelse(delay, list(delay_opts(reporting_delay)), list(delay_opts()))[[1]],
+    delays = ifelse(delay, delay_opts(reporting_delay), delay_opts())[[1]],
     stan = stan_args, verbose = FALSE
   ))
 }