Add new NL case data

- ccodwg/CovidTimelineCanada#128
ccodwg · Nov 23, 2023 · e545491 · e545491
1 parent 3451f29
commit e545491
Show file tree

Hide file tree

Showing 3 changed files with 11 additions and 5 deletions.
diff --git 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
@@ -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
@@ -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