Update processing of BC report data

ccodwg · Oct 2, 2023 · 003d0a3 · 003d0a3
1 parent 3dd6120
commit 003d0a3
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/R/assemble_final_datasets.R b/R/assemble_final_datasets.R
@@ -21,7 +21,8 @@ assemble_final_datasets <- function() {
   bc2 <- read_d("raw_data/reports/bc/bc_monthly_report.csv") %>%
     report_pluck("cases", "cases", "value_daily", "hr") %>%
     dplyr::filter(.data$date > as.Date("2023-04-15")) %>%
-    convert_hr_names()
+    convert_hr_names() %>%
+    report_recent()
   cases_bc <- append_daily_d(bc1, bc2)
   rm(bc1, bc2) # cleanup
 
@@ -205,7 +206,8 @@ assemble_final_datasets <- function() {
   bc2 <- read_d("raw_data/reports/bc/bc_monthly_report.csv") %>%
     report_pluck("deaths", "deaths", "value_daily", "hr") %>%
     dplyr::filter(.data$date > as.Date("2023-04-15")) %>%
-    convert_hr_names()
+    convert_hr_names() %>%
+    report_recent()
   deaths_bc <- append_daily_d(bc1, bc2)
   rm(bc1, bc2) # cleanup