#'
# Simple example using Rose Island, American Samoa
# Be careful with Census blocks for states!
library(tigris)
rose_island <- blocks(state = "AS", county = "Rose Island")
leaflet(rose_island) %>%
addTiles() %>%
addPolygons()
Run the code above in your browser using DataLab