diff --git a/R/pumas.R b/R/pumas.R index c617bfb..d1e578f 100644 --- a/R/pumas.R +++ b/R/pumas.R @@ -110,9 +110,12 @@ pumas <- function(state = NULL, cb = FALSE, year = NULL, ...) { if (year == 2013) url <- gsub("shp/", "", url) } } else { + + puma_dir <- if (year == 2024) "PUMA20" else "PUMA" url <- sprintf( - "https://www2.census.gov/geo/tiger/TIGER%s/PUMA/tl_%s_%s_puma%s.zip", + "https://www2.census.gov/geo/tiger/TIGER%s/%s/tl_%s_%s_puma%s.zip", cyear, + puma_dir, cyear, state, suf