Add new PHAC testing dataset

- ccodwg/CovidTimelineCanada#94
ccodwg · Oct 14, 2023 · 462bbe1 · 462bbe1
1 parent 1f35d0f
commit 462bbe1
Show file tree

Hide file tree

Showing 2 changed files with 11 additions and 1 deletion.
diff --git 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
@@ -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)