Merge branch 'main' into move-sec-opts

epiforecasts · Feb 22, 2024 · 9db69f5 · 9db69f5
2 parents cad6912 + 6ea0a53
commit 9db69f5
Show file tree

Hide file tree

Showing 2 changed files with 1 addition and 3 deletions.
diff --git a/NAMESPACE b/NAMESPACE
@@ -201,7 +201,6 @@ importFrom(purrr,map)
 importFrom(purrr,map2_dbl)
 importFrom(purrr,map_chr)
 importFrom(purrr,map_dbl)
-importFrom(purrr,map_dfc)
 importFrom(purrr,pmap_dbl)
 importFrom(purrr,quietly)
 importFrom(purrr,reduce)

diff --git a/R/dist.R b/R/dist.R
@@ -650,7 +650,6 @@ estimate_delay <- function(delays, ...) {
 #'
 #' @return A `<data.table>` of cases by date of onset
 #' @export
-#' @importFrom purrr map_dfc
 #' @importFrom data.table data.table setorder
 #' @importFrom lubridate days
 #' @examples
@@ -729,7 +728,7 @@ sample_approx_dist <- function(cases = NULL,
     draw <- dist_fn(0:max_value, dist = TRUE, cum = FALSE)
 
     # approximate cases
-    mapped_cases <- suppressMessages(purrr::map_dfc(
+    mapped_cases <- do.call(cbind, purrr::map(
       seq_along(reversed_cases),
       ~ c(
         rep(0, . - 1),