Skip to content

Commit

Permalink
hh internet type update to 2023
Browse files Browse the repository at this point in the history
  • Loading branch information
dads2busy committed Jan 31, 2025
1 parent babf2bb commit 975bc67
Show file tree
Hide file tree
Showing 5 changed files with 3 additions and 3 deletions.
6 changes: 3 additions & 3 deletions Wired/Adoption/Internet Type/code/distribution/prepare.R
Original file line number Diff line number Diff line change
Expand Up @@ -14,7 +14,7 @@ census_api_key(Sys.getenv("CENSUS_API_KEY"))
# geographies and years to pull from ACS

geographies <- c("county", "tract", "block group")
years <- c(2017:2021)
years <- c(2017:2023)

#
# DATA PULL ------------------------------------
Expand Down Expand Up @@ -130,7 +130,7 @@ ncr_hh_int <- hh_int_long %>%

# save

write_csv(ncr_hh_int, xzfile("Wired/Adoption/Internet Type/data/distribution/ncr_cttrbg_acs_2017_2021_hh_internet_type.csv.xz", compression = 9))
write_csv(ncr_hh_int, xzfile(paste0("Wired/Adoption/Internet Type/data/distribution/ncr_cttrbg_acs_", min(years), "_", max(years), "_hh_internet_type.csv.xz"), compression = 9))


#
Expand All @@ -144,5 +144,5 @@ va_hh_int <- hh_int_long %>%

# save

write_csv(va_hh_int, xzfile("Wired/Adoption/Internet Type/data/distribution/va_hdcttrbg_acs_2017_2021_hh_internet_type.csv.xz", compression = 9))
write_csv(va_hh_int, xzfile(paste0("Wired/Adoption/Internet Type/data/distribution/va_hdcttrbg_acs_", min(years), "_", max(years), "_hh_internet_type.csv.xz"), compression = 9))

Binary file not shown.
Binary file not shown.

0 comments on commit 975bc67

Please sign in to comment.