Nothing
#' Download TIGER shapes for Area Landmarks
#'
#' @templateVar state TRUE
#' @templateVar year TRUE
#' @template template
#'
#' @return sf data.frame
#' @export
#'
#' @concept landmarks
#'
#' @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) {
years_okay(year, 2010:2022)
if (missing(state)) {
cli::cli_abort("{.arg state} is required for {.fn tt_area_landmarks}.")
}
state <- state_lookup(state)
shp <- lapply(state, function(st) {
zip_url <- glue::glue("{base_url(year)}/AREALM/tl_{year}_{st}_arealm.zip")
target <- glue::glue("tl_{year}_{st}_arealm.shp")
tt_download_read(url = zip_url, target_file = target)
})
shp <- do.call(rbind, shp)
adj_class(shp)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.