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

@@ -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")