From 003d0a3deb28f62279222a0e64438b1b4f61bbe8 Mon Sep 17 00:00:00 2001 From: "Jean-Paul R. Soucy" Date: Mon, 2 Oct 2023 16:19:18 -0400 Subject: [PATCH] Update processing of BC report data --- R/assemble_final_datasets.R | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/R/assemble_final_datasets.R b/R/assemble_final_datasets.R index 934066b..e7150c9 100644 --- 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