From c4298a79adccaca6eb79afbeec278b734d8f63b6 Mon Sep 17 00:00:00 2001
From: "Jean-Paul R. Soucy" <jeanpaul.r.soucy@gmail.com>
Date: Thu, 12 Oct 2023 18:28:41 -0400
Subject: [PATCH] No longer exclude "Out of Canada" cases from BC cases

- ccodwg/CovidTimelineCanada#119
---
 R/assemble_final_datasets.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/assemble_final_datasets.R b/R/assemble_final_datasets.R
index 164f87f..4599e8b 100644
--- a/R/assemble_final_datasets.R
+++ b/R/assemble_final_datasets.R
@@ -43,7 +43,7 @@ assemble_final_datasets <- function() {
 
   ## bc
   bc1 <- read_d("raw_data/static/bc/bc_cases_hr_ts.csv") %>%
-    drop_sub_regions("Out of Canada") %>%
+    dplyr::mutate(sub_region_1 = ifelse(.data$sub_region_1 == "Out of Canada", "Unknown", .data$sub_region_1)) %>%
     convert_hr_names()
   bc2 <- read_d("raw_data/reports/bc/bc_monthly_report.csv") %>%
     report_pluck("cases", "cases", "value_daily", "hr") %>%