style: styler (GHA)

Author: brookslogan

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 = c("error","drop")) %>%
+  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)

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 = c("error","drop")) %>%
+  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)