From e54549145a7430b49ecce24120703bb866e1b1b7 Mon Sep 17 00:00:00 2001
From: "Jean-Paul R. Soucy" <jeanpaul.r.soucy@gmail.com>
Date: Wed, 22 Nov 2023 23:50:51 -0500
Subject: [PATCH] Add new NL case data

- ccodwg/CovidTimelineCanada#128
---
 R/assemble_final_datasets.R | 9 ++++++++-
 R/dl_datasets.R             | 3 +--
 R/update_raw_datasets.R     | 4 ++--
 3 files changed, 11 insertions(+), 5 deletions(-)

diff --git a/R/assemble_final_datasets.R b/R/assemble_final_datasets.R
index 856901b..b5bf37f 100644
--- a/R/assemble_final_datasets.R
+++ b/R/assemble_final_datasets.R
@@ -87,7 +87,7 @@ assemble_final_datasets <- function() {
       convert_hr_names(),
     read_d("raw_data/static/nl/nl_cases_hr_ts.csv") %>%
       convert_hr_names(),
-    read_d("raw_data/active_ts/nl/nl_cases_pt_ts.csv") %>%
+    read_d("raw_data/static/nl/nl_cases_pt_ts.csv") %>%
       dplyr::filter(.data$date >= as.Date("2022-03-12")) %>%
       dplyr::transmute(
         name = .data$name,
@@ -97,6 +97,13 @@ assemble_final_datasets <- function() {
         value = cumsum(.data$value_daily))
   ) %>%
     convert_hr_names()
+  cases_nl <- append_daily_d(
+    cases_nl,
+    read_d("raw_data/active_ts/nl/nl_cases_pt_ts.csv") |>
+      dplyr::filter(.data$date >= as.Date("2023-10-28")) |>
+      add_hr_col("Unknown") |>
+      convert_hr_names()
+    )
 
   ## ns
   ns1 <- read_d("raw_data/static/ns/ns_cases_hr_ts_1.csv")
diff --git a/R/dl_datasets.R b/R/dl_datasets.R
index dbb18dc..90ad6b2 100644
--- a/R/dl_datasets.R
+++ b/R/dl_datasets.R
@@ -35,8 +35,7 @@ dl_datasets <- function() {
       # mb
       # nb
       # nl
-      "b19daaca-6b32-47f5-944f-c69eebd63c07", NA, NA, # c
-      "34f45670-34ed-415c-86a6-e14d77fcf6db", NA, NA, # d
+      "4caa2c64-ad52-409c-853e-e2711de51669", NA, NA, # c
       # ns
       # nt
       # nu
diff --git a/R/update_raw_datasets.R b/R/update_raw_datasets.R
index 203371d..4007321 100644
--- a/R/update_raw_datasets.R
+++ b/R/update_raw_datasets.R
@@ -68,10 +68,10 @@ update_active_ts <- function(ds) {
 
   ## nl
   Covid19CanadaDataProcess::process_dataset(
-    uuid = "b19daaca-6b32-47f5-944f-c69eebd63c07",
+    uuid = "4caa2c64-ad52-409c-853e-e2711de51669",
     val = "cases",
     fmt = "prov_ts",
-    ds = load_ds(ds, "b19daaca-6b32-47f5-944f-c69eebd63c07")) %>%
+    ds = load_ds(ds, "4caa2c64-ad52-409c-853e-e2711de51669")) %>%
     write_ts("active_ts", "nl", "cases")
 
   ## on