hotfix: bound delays before getting max

epiforecasts · Aug 2, 2024 · a3a06df · a3a06df
1 parent 06aef8f
commit a3a06df
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/R/create.R b/R/create.R
@@ -742,7 +742,8 @@ create_stan_delays <- function(..., time_points = 1L) {
   ## discretise
   delays <- map(delays, discretise, strict = FALSE)
   ## get maximum delays
-  max_delay <- unname(as.numeric(flatten(map(delays, max))))
+  bounded_delays <- map(delays, function(x) discretise(fix_dist(x)))
+  max_delay <- unname(as.numeric(flatten(map(bounded_delays, max))))
   ## number of different non-empty types
   type_n <- vapply(delays, ndist, integer(1))
   ## assign ID values to each type