rename datasets from _dt to _tbl within data-generation scripts

This also accompanies commit e87ec28

Author: nmdefries

data-raw/archive_cases_dv_subset_all_states_tbl.R

@@ -35,15 +35,15 @@ case_rate_subset <- pub_covidcast(
 
 # Use `epiprocess::epix_merge` to avoid having to reimplement `sync`ing
 # behavior. After merging, convert DT component back to tibble.
-archive_cases_dv_subset_all_states_dt = epix_merge(
+archive_cases_dv_subset_all_states_tbl = epix_merge(
   dv_subset, case_rate_subset,
   sync = "locf",
   compactify = TRUE)$DT %>%
   as_tibble()
 
 # We're trying to do:
-#   usethis::use_data(archive_cases_dv_subset_all_states_dt, internal = TRUE, overwrite = TRUE, compress = "xz")
+#   usethis::use_data(archive_cases_dv_subset_all_states_tbl, internal = TRUE, overwrite = TRUE, compress = "xz")
 # but `usethis::use_data` can only store multiple objects if they're added in
 # the same call. This workaround is from
 # https://github.com/r-lib/usethis/issues/1512
-save_to_sysdata(archive_cases_dv_subset_all_states_dt, "archive_cases_dv_subset_all_states_dt")
+save_to_sysdata(archive_cases_dv_subset_all_states_tbl, "archive_cases_dv_subset_all_states_tbl")

data-raw/archive_cases_dv_subset_tbl.R

@@ -32,15 +32,15 @@ case_rate_subset <- pub_covidcast(
 
 # Use `epiprocess::epix_merge` to avoid having to reimplement `sync`ing
 # behavior. After merging, convert DT component back to tibble.
-archive_cases_dv_subset_dt = epix_merge(
+archive_cases_dv_subset_tbl = epix_merge(
   dv_subset, case_rate_subset,
   sync = "locf",
   compactify = FALSE)$DT %>%
   as_tibble()
 
 # We're trying to do:
-#   usethis::use_data(archive_cases_dv_subset_dt, internal = TRUE, overwrite = TRUE, compress = "xz")
+#   usethis::use_data(archive_cases_dv_subset_tbl, internal = TRUE, overwrite = TRUE, compress = "xz")
 # but `usethis::use_data` can only store multiple objects if they're added in
 # the same call. This workaround is from
 # https://github.com/r-lib/usethis/issues/1512
-save_to_sysdata(archive_cases_dv_subset_dt, "archive_cases_dv_subset_dt")
+save_to_sysdata(archive_cases_dv_subset_tbl, "archive_cases_dv_subset_tbl")

data-raw/can_prov_cases_tbl.R

@@ -1,4 +1,4 @@
-## code to prepare `can_prov_cases_dt` dataset goes here
+## code to prepare `can_prov_cases_tbl` dataset goes here
 
 library(dplyr)
 library(readr)
@@ -108,7 +108,7 @@ ca_pop <- read_csv(
 abbrev_map <- setNames(ca_pop$province, ca_pop$abbreviation)
 
 # Read in data
-can_prov_cases_dt <- purrr::map2(commit_pages$data_url, commit_pages$date, function(url, date) {
+can_prov_cases_tbl <- purrr::map2(commit_pages$data_url, commit_pages$date, function(url, date) {
   raw <- readr::read_csv(
     url,
     col_types = cols(
@@ -140,15 +140,15 @@ can_prov_cases_dt <- purrr::map2(commit_pages$data_url, commit_pages$date, funct
   return(result)
 })
 
-names(can_prov_cases_dt) <- commit_pages$date
-can_prov_cases_dt <- can_prov_cases_dt %>% bind_rows(.id = "version") %>%
+names(can_prov_cases_tbl) <- commit_pages$date
+can_prov_cases_tbl <- can_prov_cases_tbl %>% bind_rows(.id = "version") %>%
   mutate(version = lubridate::ymd(version)) %>% 
   arrange(version) %>%
   as_tibble()
 
 # We're trying to do:
-#   usethis::use_data(can_prov_cases_dt, internal = TRUE, overwrite = TRUE, compress = "xz")
+#   usethis::use_data(can_prov_cases_tbl, internal = TRUE, overwrite = TRUE, compress = "xz")
 # but `usethis::use_data` can only store multiple objects if they're added in
 # the same call. This workaround is from
 # https://github.com/r-lib/usethis/issues/1512
-save_to_sysdata(can_prov_cases_dt, "can_prov_cases_dt")
+save_to_sysdata(can_prov_cases_tbl, "can_prov_cases_tbl")

data-raw/case_death_rate_archive_tbl.R

@@ -39,13 +39,13 @@ deaths_incidence_prop <- pub_covidcast(
 
 # Use `epiprocess::epix_merge` to avoid having to reimplement `sync`ing
 # behavior.
-case_death_rate_archive_dt <- epix_merge(
+case_death_rate_archive_tbl <- epix_merge(
   confirmed_incidence_prop, deaths_incidence_prop,
   sync = "locf"
 )
 
 # Calculate 7-day averages for case and death rates.
-case_death_rate_archive_dt <- case_death_rate_archive_dt %>%
+case_death_rate_archive_tbl <- case_death_rate_archive_tbl %>%
   epix_slide(
     before = 365000L, ref_time_values = fc_time_values,
     function(x, gk, rtv) {
@@ -69,12 +69,12 @@ case_death_rate_archive_dt <- case_death_rate_archive_dt %>%
   ) %>%
   as_epi_archive(compactify = TRUE)
 # Convert DT component back to tibble.
-case_death_rate_archive_dt <- case_death_rate_archive_dt$DT %>% 
+case_death_rate_archive_tbl <- case_death_rate_archive_tbl$DT %>%
   as_tibble()
 
 # We're trying to do:
-#   usethis::use_data(case_death_rate_archive_dt, internal = TRUE, overwrite = TRUE, compress = "xz")
+#   usethis::use_data(case_death_rate_archive_tbl, internal = TRUE, overwrite = TRUE, compress = "xz")
 # but `usethis::use_data` can only store multiple objects if they're added in
 # the same call. This workaround is from
 # https://github.com/r-lib/usethis/issues/1512
-save_to_sysdata(case_death_rate_archive_dt, "case_death_rate_archive_dt")
+save_to_sysdata(case_death_rate_archive_tbl, "case_death_rate_archive_tbl")

data-raw/cases_deaths_subset_tbl.R

@@ -53,7 +53,7 @@ confirmed_7dav_incidence_num <- pub_covidcast(
   select(geo_value, time_value, cases_7d_av = value) %>%
   arrange(geo_value, time_value)
 
-cases_deaths_subset_dt <- confirmed_7dav_incidence_prop %>%
+cases_deaths_subset_tbl <- confirmed_7dav_incidence_prop %>%
   full_join(deaths_7dav_incidence_prop,
             by = c("geo_value", "time_value")) %>%
   full_join(confirmed_incidence_num,
@@ -63,8 +63,8 @@ cases_deaths_subset_dt <- confirmed_7dav_incidence_prop %>%
   as_tibble()
 
 # We're trying to do:
-#   usethis::use_data(cases_deaths_subset_dt, internal = TRUE, overwrite = TRUE, compress = "xz")
+#   usethis::use_data(cases_deaths_subset_tbl, internal = TRUE, overwrite = TRUE, compress = "xz")
 # but `usethis::use_data` can only store multiple objects if they're added in
 # the same call. This workaround is from
 # https://github.com/r-lib/usethis/issues/1512
-save_to_sysdata(cases_deaths_subset_dt, "cases_deaths_subset_dt")
+save_to_sysdata(cases_deaths_subset_tbl, "cases_deaths_subset_tbl")

data-raw/counts_subset_tbl.R

@@ -27,12 +27,12 @@ y <- pub_covidcast(
 ) %>%
   select(geo_value, time_value, deaths = value)
 
-counts_subset_dt <- full_join(x, y, by = c("geo_value", "time_value")) %>%
+counts_subset_tbl <- full_join(x, y, by = c("geo_value", "time_value")) %>%
   as_tibble()
 
 # We're trying to do:
-#   usethis::use_data(counts_subset_dt, internal = TRUE, overwrite = TRUE, compress = "xz")
+#   usethis::use_data(counts_subset_tbl, internal = TRUE, overwrite = TRUE, compress = "xz")
 # but `usethis::use_data` can only store multiple objects if they're added in
 # the same call. This workaround is from
 # https://github.com/r-lib/usethis/issues/1512
-save_to_sysdata(counts_subset_dt, "counts_subset_dt")
+save_to_sysdata(counts_subset_tbl, "counts_subset_tbl")

data-raw/county_smoothed_cli_comparison_tbl.R

@@ -75,7 +75,7 @@ geo_values_complete <- intersect(
 )
 
 # Join the three data frames together
-county_smoothed_cli_comparison_dt <- full_join(
+county_smoothed_cli_comparison_tbl <- full_join(
   full_join(goog_sm_cli, fb_survey, by = c("geo_value", "time_value")),
   jhu_7dav_incid,
   by = c("geo_value", "time_value")
@@ -84,8 +84,8 @@ county_smoothed_cli_comparison_dt <- full_join(
   as_tibble()
 
 # We're trying to do:
-#   usethis::use_data(county_smoothed_cli_comparison_dt, internal = TRUE, overwrite = TRUE, compress = "xz")
+#   usethis::use_data(county_smoothed_cli_comparison_tbl, internal = TRUE, overwrite = TRUE, compress = "xz")
 # but `usethis::use_data` can only store multiple objects if they're added in
 # the same call. This workaround is from
 # https://github.com/r-lib/usethis/issues/1512
-save_to_sysdata(county_smoothed_cli_comparison_dt, "county_smoothed_cli_comparison_dt")
+save_to_sysdata(county_smoothed_cli_comparison_tbl, "county_smoothed_cli_comparison_tbl")

data-raw/covid_case_death_rates_tbl.R

@@ -27,13 +27,13 @@ y <- pub_covidcast(
 ) %>%
   select(geo_value, time_value, death_rate = value)
 
-covid_case_death_rates_dt <- x %>%
+covid_case_death_rates_tbl <- x %>%
   full_join(y, by = c("geo_value", "time_value")) %>%
   as_tibble()
 
 # We're trying to do:
-#   usethis::use_data(covid_case_death_rates_dt, internal = TRUE, overwrite = TRUE, compress = "xz")
+#   usethis::use_data(covid_case_death_rates_tbl, internal = TRUE, overwrite = TRUE, compress = "xz")
 # but `usethis::use_data` can only store multiple objects if they're added in
 # the same call. This workaround is from
 # https://github.com/r-lib/usethis/issues/1512
-save_to_sysdata(covid_case_death_rates_dt, "covid_case_death_rates_dt")
+save_to_sysdata(covid_case_death_rates_tbl, "covid_case_death_rates_tbl")

data-raw/covid_incidence_county_subset_tbl.R

@@ -12,7 +12,7 @@ y <- covidcast::county_census %>%
   select(geo_value = FIPS, county_name = CTYNAME, state_name = STNAME)
 
 # Fetch only counties from Massachusetts and Vermont, then append names columns as well
-covid_incidence_county_subset_dt <- pub_covidcast(
+covid_incidence_county_subset_tbl <- pub_covidcast(
   source = "jhu-csse",
   signals = "confirmed_incidence_num",
   time_type = "day",
@@ -26,8 +26,8 @@ covid_incidence_county_subset_dt <- pub_covidcast(
   as_tibble()
 
 # We're trying to do:
-#   usethis::use_data(covid_incidence_county_subset_dt, internal = TRUE, overwrite = TRUE, compress = "xz")
+#   usethis::use_data(covid_incidence_county_subset_tbl, internal = TRUE, overwrite = TRUE, compress = "xz")
 # but `usethis::use_data` can only store multiple objects if they're added in
 # the same call. This workaround is from
 # https://github.com/r-lib/usethis/issues/1512
-save_to_sysdata(covid_incidence_county_subset_dt, "covid_incidence_county_subset_dt")
+save_to_sysdata(covid_incidence_county_subset_tbl, "covid_incidence_county_subset_tbl")

data-raw/covid_incidence_outliers_tbl.R

@@ -5,7 +5,7 @@ source(here::here("data-raw/_helper.R"))
 
 d <- as.Date("2021-10-28")
 
-covid_incidence_outliers_dt <- pub_covidcast(
+covid_incidence_outliers_tbl <- pub_covidcast(
   source = "jhu-csse",
   signals = "confirmed_incidence_num",
   time_type = "day",
@@ -18,8 +18,8 @@ covid_incidence_outliers_dt <- pub_covidcast(
   as_tibble()
 
 # We're trying to do:
-#   usethis::use_data(covid_incidence_outliers_dt, internal = TRUE, overwrite = TRUE, compress = "xz")
+#   usethis::use_data(covid_incidence_outliers_tbl, internal = TRUE, overwrite = TRUE, compress = "xz")
 # but `usethis::use_data` can only store multiple objects if they're added in
 # the same call. This workaround is from
 # https://github.com/r-lib/usethis/issues/1512
-save_to_sysdata(covid_incidence_outliers_dt, "covid_incidence_outliers_dt")
+save_to_sysdata(covid_incidence_outliers_tbl, "covid_incidence_outliers_tbl")