From 3dd6120d3099d7b63c89923180833038e58f6148 Mon Sep 17 00:00:00 2001 From: "Jean-Paul R. Soucy" Date: Sat, 23 Sep 2023 12:07:00 -0400 Subject: [PATCH] Update hospitalization/ICU data - Update hosp/ICU data (ccodwg/CovidTimelineCanada#82) - Remove covid19tracker.ca hosp/ICU data for NL (the values reported are admissions data which are not compatible) and NS (replaced by time series/report data) - Update NS hosp/ICU data (ccodwg/CovidTimelineCanada#54) --- R/assemble_final_datasets.R | 18 ++++++++++-------- 1 file changed, 10 insertions(+), 8 deletions(-) diff --git a/R/assemble_final_datasets.R b/R/assemble_final_datasets.R index c7d43e6..934066b 100644 --- a/R/assemble_final_datasets.R +++ b/R/assemble_final_datasets.R @@ -441,15 +441,16 @@ assemble_final_datasets <- function() { ## nl hospitalizations_nl <- dplyr::bind_rows( - read_d("raw_data/static/nl/nl_hospitalizations_pt_ts.csv"), - get_covid19tracker_d("hospitalizations", "NL", from = "2022-03-12") + read_d("raw_data/static/nl/nl_hospitalizations_pt_ts.csv") ) ## ns hospitalizations_ns <- dplyr::bind_rows( get_covid19tracker_d("hospitalizations", "NS", to = "2021-01-18"), - read_d("raw_data/static/ns/ns_hospitalizations_pt_ts.csv"), - get_covid19tracker_d("hospitalizations", "NS", from = "2022-01-19") + read_d("raw_data/static/ns/ns_hospitalizations_pt_ts_1.csv"), + read_d("raw_data/static/ns/ns_hospitalizations_pt_ts_2.csv"), + read_d("raw_data/reports/ns/ns_weekly_report.csv") |> + report_pluck("hospitalizations", "active_hospitalizations", "value", "pt") ) ## on @@ -504,15 +505,16 @@ assemble_final_datasets <- function() { ## nl icu_nl <- dplyr::bind_rows( get_covid19tracker_d("icu", "NL", to = "2021-03-15"), - read_d("raw_data/static/nl/nl_icu_pt_ts.csv"), - get_covid19tracker_d("icu", "NL", from = "2022-03-12") + read_d("raw_data/static/nl/nl_icu_pt_ts.csv") ) ## ns icu_ns <- dplyr::bind_rows( get_covid19tracker_d("icu", "NS", to = "2021-01-18"), - read_d("raw_data/static/ns/ns_icu_pt_ts.csv"), - get_covid19tracker_d("icu", "NS", from = "2022-01-19") + read_d("raw_data/static/ns/ns_icu_pt_ts_1.csv"), + read_d("raw_data/static/ns/ns_icu_pt_ts_2.csv"), + read_d("raw_data/reports/ns/ns_weekly_report.csv") |> + report_pluck("icu", "active_icu", "value", "pt") ) ## on