if (FALSE) {
# If you want to download lots of USCensus shapefiles
url <- "https://www2.census.gov/geo/tiger/GENZ2019/shp/"
browseURL(url)
dataLinks <- html_getLinks(url)
dataLinks <-
dataLinks %>%
dplyr::filter(stringr::str_detect(linkName, "us_county"))
head(dataLinks, 10)
html_getLinkNames(url)
html_getLinkUrls(url, relative = FALSE)
}
Run the code above in your browser using DataLab