complete initial bump to 2023 support

alarm-redist · May 30, 2024 · 156ed72 · 156ed72
1 parent 21e6e8b
commit 156ed72
Show file tree

Hide file tree

Showing 39 changed files with 84 additions and 64 deletions.
diff --git a/R/address_ranges.R b/R/address_ranges.R
@@ -13,9 +13,9 @@
 #' @examples
 #' # Wrapped in try due to false positive 304 errors
 #' \donttest{try(tt_address_ranges("DE", county = "001"))} # downloads slow on CRAN
-tt_address_ranges <- function(state, county, year = 2022) {
+tt_address_ranges <- function(state, county, year = 2023) {
 
-  years_okay(year, okay = 2011:2022)
+  years_okay(year, okay = 2011:2023)
 
   if (missing(state)) {
     cli::cli_abort("{.arg state} is required for {.fn tt_adress_ranges}.")

diff --git a/R/ai_an_nh_areas.R b/R/ai_an_nh_areas.R
@@ -11,7 +11,7 @@
 #' @examples
 #' # Wrapped in try due to false positive 304 errors
 #' \donttest{try(tt_ai_an_nh_areas())}
-tt_ai_an_nh_areas <- function(year = 2022) {
+tt_ai_an_nh_areas <- function(year = 2023) {
 
   years_okay(year)
 

diff --git a/R/anrc.R b/R/anrc.R
@@ -11,7 +11,7 @@
 #' @examples
 #' # Wrapped in try due to false positive 304 errors
 #' \donttest{try(tt_anrc())} # downloads slow on CRAN
-tt_anrc <- function(year = 2022) {
+tt_anrc <- function(year = 2023) {
 
   years_okay(year)
 

diff --git a/R/area_landmarks.R b/R/area_landmarks.R
@@ -12,9 +12,9 @@
 #' @examples
 #' # Wrapped in try due to false positive 304 errors
 #' \donttest{try(tt_area_landmarks("DE"))} # downloads slow on CRAN
-tt_area_landmarks <- function(state, year = 2022) {
+tt_area_landmarks <- function(state, year = 2023) {
 
-  years_okay(year, 2010:2022)
+  years_okay(year, 2010:2023)
 
   if (missing(state)) {
     cli::cli_abort("{.arg state} is required for {.fn tt_area_landmarks}.")

diff --git a/R/area_water.R b/R/area_water.R
@@ -13,9 +13,9 @@
 #' @examples
 #' # Wrapped in try due to false positive 304 errors
 #' \donttest{try(tt_area_water("DE"))} # downloads slow on CRAN
-tt_area_water <- function(state, county, year = 2022) {
+tt_area_water <- function(state, county, year = 2023) {
 
-  years_okay(year, 2010:2022)
+  years_okay(year, 2010:2023)
 
   if (missing(state)) {
     cli::cli_abort("{.arg state} is required for {.fn tt_area_water}.")

diff --git a/R/block_groups.R b/R/block_groups.R
@@ -13,7 +13,7 @@
 #' @examples
 #' # Wrapped in try due to false positive 304 errors
 #' \donttest{try(tt_block_groups(state = "DE", county = "001"))} # downloads slow on CRAN
-tt_block_groups <- function(state, county, year = 2022) {
+tt_block_groups <- function(state, county, year = 2023) {
 
   years_okay(year)
 

diff --git a/R/blocks.R b/R/blocks.R
@@ -13,7 +13,7 @@
 #' @examples
 #' # Wrapped in try due to false positive 304 errors
 #' \donttest{try(tt_blocks(state = "DE", county = "001"))}
-tt_blocks <- function(state, county, year = 2022) {
+tt_blocks <- function(state, county, year = 2023) {
 
   if (missing(state)) {
     cli::cli_abort("{.arg state} is required for {.fn tt_blocks}.")

diff --git a/R/coastline.R b/R/coastline.R
@@ -13,9 +13,9 @@
 #' # Wrapped in try due to false positive 304 errors
 #' \donttest{try(tt_coastline())} # downloads slow on CRAN
 #' }
-tt_coastline <- function(year = 2022) {
+tt_coastline <- function(year = 2023) {
 
-  years_okay(year, 2016:2022)
+  years_okay(year, 2016:2023)
 
   zip_url <- glue::glue("{base_url(year)}/COASTLINE/tl_{year}_us_coastline.zip")
   target <- paste0("tl_", year, "_us_coastline.shp")

diff --git a/R/consolidated_cities.R b/R/consolidated_cities.R
@@ -12,7 +12,7 @@
 #' @examples
 #' # Wrapped in try due to false positive 304 errors
 #' \donttest{try(tt_consolidated_cities("CT"))} # downloads slow on CRAN
-tt_consolidated_cities <- function(state, year = 2022) {
+tt_consolidated_cities <- function(state, year = 2023) {
 
   years_okay(year)
 

diff --git a/R/counties.R b/R/counties.R
@@ -14,7 +14,7 @@
 #' # Wrapped in try due to false positive 304 errors
 #' \donttest{try(tt_counties(state = "DE"))} # downloads slow on CRAN
 #' }
-tt_counties <- function(state, year = 2022) {
+tt_counties <- function(state, year = 2023) {
 
   years_okay(year)
 

diff --git a/R/county_subdivisions.R b/R/county_subdivisions.R
@@ -12,7 +12,7 @@
 #' @examples
 #' # Wrapped in try due to false positive 304 errors
 #' \donttest{try(tt_county_subdivisions("DE"))} # downloads slow on CRAN
-tt_county_subdivisions <- function(state, year = 2022) {
+tt_county_subdivisions <- function(state, year = 2023) {
 
   years_okay(year)
 

diff --git a/R/elementary_school_districts.R b/R/elementary_school_districts.R
@@ -12,7 +12,7 @@
 #' @examples
 #' # Wrapped in try due to false positive 304 errors
 #' \donttest{try(tt_elementary_school_districts("AZ"))} # downloads slow on CRAN
-tt_elementary_school_districts <- function(state, year = 2022) {
+tt_elementary_school_districts <- function(state, year = 2023) {
 
   years_okay(year)
 

diff --git a/R/estates.R b/R/estates.R
@@ -11,9 +11,9 @@
 #' @examples
 #' # Wrapped in try due to false positive 304 errors
 #' \donttest{try(tt_estates())} # downloads slow on CRAN
-tt_estates <- function(year = 2022) {
+tt_estates <- function(year = 2023) {
 
-  years_okay(year, 2012:2022)
+  years_okay(year, 2012:2023)
 
   zip_url <- glue::glue("{base_url(year)}/ESTATE/tl_{year}_78_estate.zip")
   target <- glue::glue("tl_{year}_78_estate.shp")

diff --git a/R/linear_water.R b/R/linear_water.R
@@ -13,9 +13,9 @@
 #' @examples
 #' # Wrapped in try due to false positive 304 errors
 #' \donttest{try(tt_linear_water("DE"))} # downloads slow on CRAN
-tt_linear_water <- function(state, county, year = 2022) {
+tt_linear_water <- function(state, county, year = 2023) {
 
-  years_okay(year, 2010:2022)
+  years_okay(year, 2010:2023)
 
   if (missing(state)) {
     cli::cli_abort("{.arg state} is required for {.fn tt_linear_water}.")

diff --git a/R/lookup.R b/R/lookup.R
@@ -89,6 +89,14 @@ state_lookup <- function(state) {
   st$fips[matched]
 }
 
+all_state_fips <- c("01", "02", "04", "05", "06",
+                    "08", "09", "10", "11", "12", "13", "15", "16", "17", "18",
+                    "19", "20", "21", "22", "23", "24", "25", "26", "27",
+                    "28", "29", "30", "31", "32", "33", "34", "35", "36", "37",
+                    "38", "39", "40", "41", "42", "44", "45", "46", "47",
+                    "48", "49", "50", "51", "53", "54", "55", "56", "60", "66",
+                    "69", "72", "74", "78")
+
 county_lookup <- function(state, counties) {
   st <- get("county_fips_2020")
   st <- st[st$state %in% state, ]

diff --git a/R/military.R b/R/military.R
@@ -11,9 +11,9 @@
 #' @examples
 #' # Wrapped in try due to false positive 304 errors
 #' \donttest{try(tt_military())} # downloads slow on CRAN
-tt_military <- function(year = 2022) {
+tt_military <- function(year = 2023) {
 
-  years_okay(year, 2010:2022)
+  years_okay(year, 2010:2023)
 
   zip_url <- glue::glue("{base_url(year)}/MIL/tl_{year}_us_mil.zip")
   target <- glue::glue("tl_{year}_us_mil.shp")

diff --git a/R/new_england_city.R b/R/new_england_city.R
@@ -11,9 +11,9 @@
 #' @examples
 #' # Wrapped in try due to false positive 304 errors
 #' \donttest{try(tt_new_england_cities())} # downloads slow on CRAN
-tt_new_england_cities <- function(year = 2022) {
+tt_new_england_cities <- function(year = 2023) {
 
-  years_okay(year, 2010:2022)
+  years_okay(year, 2010:2023)
 
   dec_yr <- pad_str(year %% 2000 - (year %% 10))
   url_adj <- ""

diff --git a/R/places.R b/R/places.R
@@ -12,7 +12,7 @@
 #' @examples
 #' # Wrapped in try due to false positive 304 errors
 #' \donttest{try(tt_places("DE"))} # downloads slow on CRAN
-tt_places <- function(state, year = 2022) {
+tt_places <- function(state, year = 2023) {
 
   years_okay(year)
 

diff --git a/R/point_landmarks.R b/R/point_landmarks.R
@@ -12,9 +12,9 @@
 #' @examples
 #' # Wrapped in try due to false positive 304 errors
 #' \donttest{try(tt_point_landmarks("DE"))} # downloads slow on CRAN
-tt_point_landmarks <- function(state, year = 2022) {
+tt_point_landmarks <- function(state, year = 2023) {
 
-  years_okay(year, 2010:2022)
+  years_okay(year, 2010:2023)
 
   if (missing(state)) {
     cli::cli_abort("{.arg state} is required for {.fn tt_point_landmarks}.")

diff --git a/R/polygon_edges.R b/R/polygon_edges.R
@@ -13,9 +13,9 @@
 #' @examples
 #' # Wrapped in try due to false positive 304 errors
 #' \donttest{try(tt_polygon_edges("DE", county = "001"))} # downloads slow on CRAN
-tt_polygon_edges <- function(state, county, year = 2022) {
+tt_polygon_edges <- function(state, county, year = 2023) {
 
-  years_okay(year, 2010:2022)
+  years_okay(year, 2010:2023)
 
   if (missing(state)) {
     cli::cli_abort("{.arg state} is required for {.fn tt_roads}.")

diff --git a/R/polygon_faces.R b/R/polygon_faces.R
@@ -13,9 +13,9 @@
 #' @examples
 #' # Wrapped in try due to false positive 304 errors
 #' \donttest{try(tt_polygon_faces("DE", county = "001"))} # downloads slow on CRAN
-tt_polygon_faces <- function(state, county, year = 2022) {
+tt_polygon_faces <- function(state, county, year = 2023) {
 
-  years_okay(year, 2010:2022)
+  years_okay(year, 2010:2023)
 
   if (missing(state)) {
     cli::cli_abort("{.arg state} is required for {.fn tt_roads}.")

diff --git a/R/primary_roads.R b/R/primary_roads.R
@@ -13,9 +13,9 @@
 #' # Wrapped in try due to false positive 304 errors
 #' \donttest{try(tt_primary_roads())} # downloads slow on CRAN
 #' }
-tt_primary_roads <- function(year = 2022) {
+tt_primary_roads <- function(year = 2023) {
 
-  years_okay(year, 2010:2022)
+  years_okay(year, 2010:2023)
 
   zip_url <- glue::glue("{base_url(year)}/PRIMARYROADS/tl_{year}_us_primaryroads.zip")
   target <- glue::glue("tl_{year}_us_primaryroads.shp")

diff --git a/R/primary_secondary_roads.R b/R/primary_secondary_roads.R
@@ -12,9 +12,9 @@
 #' @examples
 #' # Wrapped in try due to false positive 304 errors
 #' \donttest{try(tt_primary_secondary_roads("DE"))} # downloads slow on CRAN
-tt_primary_secondary_roads <- function(state, year = 2022) {
+tt_primary_secondary_roads <- function(state, year = 2023) {
 
-  years_okay(year, 2010:2022)
+  years_okay(year, 2010:2023)
 
   if (missing(state)) {
     cli::cli_abort("{.arg state} is required for {.fn tt_primary_secondary_roads}.")

diff --git a/R/puma.R b/R/puma.R
@@ -12,18 +12,24 @@
 #' @examples
 #' # Wrapped in try due to false positive 304 errors
 #' \donttest{try(tt_puma("DE"))} # downloads slow on CRAN
-tt_puma <- function(state, year = 2021) {
+tt_puma <- function(state, year = 2023) {
 
-  years_okay(year, 2012:2021)
+  years_okay(year, 2012:2023)
 
   if (missing(state)) {
     cli::cli_abort("{.arg state} is required for {.fn tt_puma}.")
   }
   state <- state_lookup(state)
 
+  if (year > 2021) {
+    dec_yr <- '20'
+  } else{
+    dec_yr <- '10'
+  }
+
   shp <- lapply(state, function(st) {
-    zip_url <- glue::glue("{base_url(year)}/PUMA/tl_{year}_{st}_puma10.zip")
-    target <- glue::glue("tl_{year}_{st}_puma10.shp")
+    zip_url <- glue::glue("{base_url(year)}/PUMA/tl_{year}_{st}_puma{dec_yr}.zip")
+    target <- glue::glue("tl_{year}_{st}_puma{dec_yr}.shp")
     tt_download_read(url = zip_url, target_file = target)
   })
   shp <- do.call(rbind, shp)

diff --git a/R/rails.R b/R/rails.R
@@ -13,9 +13,9 @@
 #' # Wrapped in try due to false positive 304 errors
 #' \donttest{try(tt_rails())} # downloads slow on CRAN
 #' }
-tt_rails <- function(year = 2022) {
+tt_rails <- function(year = 2023) {
 
-  years_okay(year, 2010:2022)
+  years_okay(year, 2010:2023)
 
   zip_url <- glue::glue("{base_url(year)}/RAILS/tl_{year}_us_rails.zip")
   target <- glue::glue("tl_{year}_us_rails.shp")

diff --git a/R/roads.R b/R/roads.R
@@ -13,9 +13,9 @@
 #' @examples
 #' # Wrapped in try due to false positive 304 errors
 #' \donttest{try(tt_roads("DE"))} # downloads slow on CRAN
-tt_roads <- function(state, county, year = 2022) {
+tt_roads <- function(state, county, year = 2023) {
 
-  years_okay(year, 2010:2022)
+  years_okay(year, 2010:2023)
 
   if (missing(state)) {
     cli::cli_abort("{.arg state} is required for {.fn tt_roads}.")

diff --git a/R/secondary_school_districts.R b/R/secondary_school_districts.R
@@ -12,7 +12,7 @@
 #' @examples
 #' # Wrapped in try due to false positive 304 errors
 #' \donttest{try(tt_secondary_school_districts("AZ"))} # downloads slow on CRAN
-tt_secondary_school_districts <- function(state, year = 2022) {
+tt_secondary_school_districts <- function(state, year = 2023) {
 
   years_okay(year)
 

diff --git a/R/state_leg_lower.R b/R/state_leg_lower.R
@@ -12,7 +12,7 @@
 #' @examples
 #' # Wrapped in try due to false positive 304 errors
 #' \donttest{try(tt_state_leg_lower("DE"))} # downloads slow on CRAN
-tt_state_leg_lower <- function(state, year = 2022) {
+tt_state_leg_lower <- function(state, year = 2023) {
 
   years_okay(year)
 

diff --git a/R/state_leg_upper.R b/R/state_leg_upper.R
@@ -12,7 +12,7 @@
 #' @examples
 #' # Wrapped in try due to false positive 304 errors
 #' \donttest{try(tt_state_leg_lower("DE"))} # downloads slow on CRAN
-tt_state_leg_upper <- function(state, year = 2022) {
+tt_state_leg_upper <- function(state, year = 2023) {
 
   years_okay(year)
 

diff --git a/R/states.R b/R/states.R
@@ -11,7 +11,7 @@
 #' @examples
 #' # Wrapped in try due to false positive 304 errors
 #' \donttest{try(tt_states())}
-tt_states <- function(year = 2022) {
+tt_states <- function(year = 2023) {
 
   years_okay(year)
 

diff --git a/R/subbarrio.R b/R/subbarrio.R
@@ -11,9 +11,9 @@
 #' @examples
 #' # Wrapped in try due to false positive 304 errors
 #' \donttest{try(tt_subbarrios())} # downloads slow on CRAN
-tt_subbarrios <- function(year = 2022) {
+tt_subbarrios <- function(year = 2023) {
 
-  years_okay(year, 2016:2022)
+  years_okay(year, 2016:2023)
 
   zip_url <- glue::glue("{base_url(year)}/SUBBARRIO/tl_{year}_72_subbarrio.zip")
   target <- paste0("tl_", year, "_72_subbarrio.shp")

diff --git a/R/tract.R b/R/tract.R
@@ -13,7 +13,7 @@
 #' @examples
 #' # Wrapped in try due to false positive 304 errors
 #' \donttest{try(tt_tracts(state = "DE", county = "001"))} # downloads slow on CRAN
-tt_tracts <- function(state, county, year = 2022) {
+tt_tracts <- function(state, county, year = 2023) {
 
   years_okay(year)
 

diff --git a/R/tribal_block_groups.R b/R/tribal_block_groups.R
@@ -11,9 +11,9 @@
 #' @examples
 #' # Wrapped in try due to false positive 304 errors
 #' \donttest{try(tt_tribal_block_groups())}
-tt_tribal_block_groups <- function(year = 2022) {
+tt_tribal_block_groups <- function(year = 2023) {
 
-  years_okay(year, 2010:2022)
+  years_okay(year, 2010:2023)
 
   dec_yr <- pad_str(year %% 2000 - (year %% 10))
   url_adj <- ""

diff --git a/R/tribal_subdivisions.R b/R/tribal_subdivisions.R
@@ -11,9 +11,9 @@
 #' @examples
 #' # Wrapped in try due to false positive 304 errors
 #' \donttest{try(tt_tribal_subdivisions())}
-tt_tribal_subdivisions <- function(year = 2022) {
+tt_tribal_subdivisions <- function(year = 2023) {
 
-  years_okay(year, 2015:2022)
+  years_okay(year, 2015:2023)
 
   zip_url <- glue::glue("{base_url(year)}/AITSN/tl_{year}_us_aitsn.zip")
   target <- paste0("tl_", year, "_us_aitsn.shp")

diff --git a/R/tribal_tracts.R b/R/tribal_tracts.R
@@ -11,9 +11,9 @@
 #' @examples
 #' # Wrapped in try due to false positive 304 errors
 #' \donttest{try(tt_tribal_tracts())}
-tt_tribal_tracts <- function(year = 2022) {
+tt_tribal_tracts <- function(year = 2023) {
 
-  years_okay(year, 2010:2022)
+  years_okay(year, 2010:2023)
 
   dec_yr <- pad_str(year %% 2000 - (year %% 10))
   url_adj <- ""