R/new_england_city_divisions.R

In tinytiger: Lightweight Interface to TIGER/Line Shapefiles

#' Download TIGER shapes for New England City and Town Area Divisions
#'
#' @templateVar year TRUE
#' @template template
#'
#' @return sf data.frame
#' @export
#'
#' @concept city
#'
#' @examples
#' # Wrapped in try due to false positive 304 errors
#' \donttest{try(tt_new_england_city_divisions())} # downloads slow on CRAN
tt_new_england_city_divisions <- function(year = 2021) {

  years_okay(year, 2010:2021)

  dec_yr <- pad_str(year %% 2000 - (year %% 10))
  url_adj <- ""
  if (year <= 2010) {
    url_adj <- paste0("/20", dec_yr)
    year <- 2010
  } else {
    dec_yr <- ""
  }

  zip_url <- glue::glue("{base_url(year)}/NECTADIV{url_adj}/tl_{year}_us_nectadiv{dec_yr}.zip")
  target <- glue::glue("tl_{year}_us_nectadiv{dec_yr}.shp")
  shp <- tt_download_read(url = zip_url, target_file = target)

  adj_class(shp)
}