From 462bbe12dae03f4e5bc515227c6a8dbb452de29f Mon Sep 17 00:00:00 2001 From: "Jean-Paul R. Soucy" Date: Sat, 14 Oct 2023 18:03:28 -0400 Subject: [PATCH] Add new PHAC testing dataset - ccodwg/CovidTimelineCanada#94 --- R/dl_datasets.R | 1 + R/update_raw_datasets.R | 11 ++++++++++- 2 files changed, 11 insertions(+), 1 deletion(-) diff --git a/R/dl_datasets.R b/R/dl_datasets.R index f530981..649e922 100644 --- a/R/dl_datasets.R +++ b/R/dl_datasets.R @@ -27,6 +27,7 @@ dl_datasets <- function() { # can "314c507d-7e48-476e-937b-965499f51e8e", NA, NA, # c, d "f1e1a857-fab8-4c25-a132-f474fab93622", NA, NA, # h, i + "e41c63ec-ac54-47c9-8cf3-da2e1146aa75", NA, NA, # t "d0bfcd85-9552-47a5-a699-aa6fe4815e00", NA, NA, # vaccine_coverage, vaccine_administration "ea3718c1-83f1-46a1-8b21-e25aebd1ebee", NA, NA, # wastewater_copies_per_ml # mb diff --git a/R/update_raw_datasets.R b/R/update_raw_datasets.R index 1f806fe..54349b4 100644 --- a/R/update_raw_datasets.R +++ b/R/update_raw_datasets.R @@ -221,7 +221,16 @@ update_active_ts <- function(ds) { write_ts("active_ts", "qc", "icu_admissions") # active_ts - testing data - # cat("Updating active_ts: testing data", fill = TRUE) + cat("Updating active_ts: testing data", fill = TRUE) + + ## can + Covid19CanadaDataProcess::process_dataset( + uuid = "e41c63ec-ac54-47c9-8cf3-da2e1146aa75", + val = "testing", + fmt = "prov_ts", + ds = load_ds(ds, "e41c63ec-ac54-47c9-8cf3-da2e1146aa75")) %>% + add_name_col("tests_completed") %>% + write_ts("active_ts", "can", "tests_completed") # vaccine coverage data cat("Updating active_ts: vaccine coverage data", fill = TRUE)