hotfix: don't filter leading zeros

epiforecasts · Mar 2, 2024 · 65b3043 · 65b3043
1 parent 1f5d95e
commit 65b3043
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/R/estimate_secondary.R b/R/estimate_secondary.R
@@ -166,7 +166,9 @@ estimate_secondary <- function(reports,
 
   reports <- data.table::as.data.table(reports)
   secondary_reports <- reports[, list(date, confirm = secondary)]
-  secondary_reports <- create_clean_reported_cases(secondary_reports)
+  secondary_reports <- create_clean_reported_cases(
+    secondary_reports, filter_leading_zeros = FALSE
+  )
   ## fill in missing data (required if fitting to prevalence)
   complete_secondary <- create_complete_cases(secondary_reports)