From d325ebfc2e9fc0a7e7b14577b83aadf8509a0f17 Mon Sep 17 00:00:00 2001 From: "Jean-Paul R. Soucy" Date: Mon, 2 Oct 2023 21:16:28 -0400 Subject: [PATCH] Update AB hosp/ICU data - Replace AB hosp/ICU data from covid19tracker.ca with final version of summary data CSV (ccodwg/CovidTimelineCanada#82, ccodwg/CovidTimelineCanada#116) - First dataset includes "with and for COVID-19" and spans 2020-03-06 to 2022-01-31 - Second dataset includes only "for COVID-19" and spans 2022-02-01 to 2023-08-21 --- R/assemble_final_datasets.R | 12 ++++++++++-- 1 file changed, 10 insertions(+), 2 deletions(-) diff --git a/R/assemble_final_datasets.R b/R/assemble_final_datasets.R index 894d1a1..33034ec 100644 --- a/R/assemble_final_datasets.R +++ b/R/assemble_final_datasets.R @@ -421,7 +421,11 @@ assemble_final_datasets <- function() { # hospitalizations dataset ## ab - hospitalizations_ab <- get_covid19tracker_d("hospitalizations", "AB") + hospitalizations_ab <- dplyr::bind_rows( + read_d("raw_data/static/ab/ab_hospitalizations_pt_ts_1.csv") |> + dplyr::filter(.data$date <= as.Date("2022-01-31")), + read_d("raw_data/static/ab/ab_hospitalizations_pt_ts_2.csv") + ) ## bc hospitalizations_bc <- get_covid19tracker_d("hospitalizations", "BC") @@ -484,7 +488,11 @@ assemble_final_datasets <- function() { # icu dataset ## ab - icu_ab <- get_covid19tracker_d("icu", "AB") + icu_ab <- dplyr::bind_rows( + read_d("raw_data/static/ab/ab_icu_pt_ts_1.csv") |> + dplyr::filter(.data$date <= as.Date("2022-01-31")), + read_d("raw_data/static/ab/ab_icu_pt_ts_2.csv") + ) ## bc icu_bc <- get_covid19tracker_d("icu", "BC")