diff --git a/data-raw/jhu_csse_county_level_subset.R b/data-raw/jhu_csse_county_level_subset.R index 4d27c20e..90843951 100644 --- 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 index 0a0e755e..45747523 100644 --- 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)