clean up filtering of leading zeros

epiforecasts · Dec 18, 2023 · 8572fd8 · 8572fd8
1 parent bc1c4c6
commit 8572fd8
Showing 1 changed file with 1 addition and 4 deletions.
diff --git a/R/create.R b/R/create.R
@@ -38,10 +38,7 @@ create_clean_reported_cases <- function(reported_cases, horizon,
   reported_cases <- data.table::setorder(reported_cases, date)
   ## Filter out 0 reported cases from the beginning of the data
   if (filter_leading_zeros) {
-    reported_cases <- reported_cases[order(date)][
-      ,
-      cum_cases := cumsum(confirm, na.rm = TRUE)
-    ][min(date[cum_cases > 0])][, cum_cases := NULL]
+    reported_cases <- reported_cases[order(date)][min(date[confirm > 0])]
   }
 
   # Check case counts preceding zero case counts and set to 7 day average if