diff --git a/data-raw/case_death_rate_subset.R b/data-raw/case_death_rate_subset.R index 2d6a92ebc..4bf416dbf 100644 --- a/data-raw/case_death_rate_subset.R +++ b/data-raw/case_death_rate_subset.R @@ -11,7 +11,7 @@ x <- covidcast( time_values = epirange(20201231, 20211231), geo_values = "*" ) %>% - fetch_tbl() %>% + fetch() %>% select(geo_value, time_value, case_rate = value) y <- covidcast( @@ -22,7 +22,7 @@ y <- covidcast( time_values = epirange(20201231, 20211231), geo_values = "*" ) %>% - fetch_tbl() %>% + fetch() %>% select(geo_value, time_value, death_rate = value) case_death_rate_subset <- x %>% diff --git a/musings/example-recipe.R b/musings/example-recipe.R index e14852269..afe1beed0 100644 --- a/musings/example-recipe.R +++ b/musings/example-recipe.R @@ -12,7 +12,7 @@ x <- covidcast( time_values = epirange(20200301, 20211231), geo_values = "*" ) %>% - fetch_tbl() %>% + fetch() %>% select(geo_value, time_value, case_rate = value) y <- covidcast( @@ -23,7 +23,7 @@ y <- covidcast( time_values = epirange(20200301, 20211231), geo_values = "*" ) %>% - fetch_tbl() %>% + fetch() %>% select(geo_value, time_value, death_rate = value) x <- x %>% diff --git a/vignettes/preprocessing-and-models.Rmd b/vignettes/preprocessing-and-models.Rmd index 544b86b20..d0a8667e5 100644 --- a/vignettes/preprocessing-and-models.Rmd +++ b/vignettes/preprocessing-and-models.Rmd @@ -68,7 +68,7 @@ x <- covidcast( geo_type = "state", time_values = epirange(20210604, 20211231), geo_values = "ca,fl,tx,ny,nj") %>% - fetch_tbl() %>% + fetch() %>% select(geo_value, time_value, cases = value) y <- covidcast( @@ -78,7 +78,7 @@ y <- covidcast( geo_type = "state", time_values = epirange(20210604, 20211231), geo_values = "ca,fl,tx,ny,nj") %>% - fetch_tbl() %>% + fetch() %>% select(geo_value, time_value, deaths = value) counts_subset <- full_join(x, y, by = c("geo_value", "time_value")) %>% @@ -249,7 +249,7 @@ behav_ind_mask <- covidcast( geo_type = "state", time_values = epirange(20210604, 20211231), geo_values = "ca,fl,tx,ny,nj") %>% - fetch_tbl() %>% + fetch() %>% select(geo_value, time_value, masking = value) behav_ind_distancing <- covidcast( @@ -259,7 +259,7 @@ behav_ind_distancing <- covidcast( geo_type = "state", time_values = epirange(20210604, 20211231), geo_values = "ca,fl,tx,ny,nj") %>% - fetch_tbl() %>% + fetch() %>% select(geo_value, time_value, distancing = value) pop_dat <- state_census %>% select(abbr, pop)