Fix unmatched setting

cmu-delphi · Oct 4, 2024 · a2ef5a2 · a2ef5a2
1 parent f77b68d
commit a2ef5a2
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/data-raw/jhu_csse_county_level_subset.R b/data-raw/jhu_csse_county_level_subset.R
@@ -23,7 +23,7 @@ jhu_csse_county_level_subset <- pub_covidcast(
   time_values = epirange(20200601, 20211231),
 ) %>%
   select(geo_value, time_value, cases = value) %>%
-  inner_join(y, by = "geo_value", relationship = "many-to-one", unmatched = "error") %>%
+  inner_join(y, by = "geo_value", relationship = "many-to-one", unmatched = c("error", "drop")) %>%
   as_epi_df()
 
 usethis::use_data(jhu_csse_county_level_subset, overwrite = TRUE)
diff --git a/vignettes/aggregation.Rmd b/vignettes/aggregation.Rmd
@@ -124,7 +124,7 @@ state_naming <- read_csv("https://github.com/cmu-delphi/covidcast/raw/c89e4d2955
 
 # First make geo value more readable for tables, plots, etc.
 x <- x %>%
-  inner_join(state_naming, by = "state_name", relationship = "many-to-one", unmatched = "error") %>%
+  inner_join(state_naming, by = "state_name", relationship = "many-to-one", unmatched = c("error", "drop")) %>%
   mutate(geo_value = paste(substr(county_name, 1, nchar(county_name) - 7), state_name, sep = ", ")) %>%
   select(geo_value, time_value, cases)