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