if (FALSE) {
library(tigris)
library(leaflet)
states <- states(cb = TRUE)
leaflet(states) %>%
addProviderTiles("CartoDB.Positron") %>%
addPolygons(fillColor = "white",
color = "black",
weight = 0.5) %>%
setView(-98.5795, 39.8282, zoom=3)
}
Run the code above in your browser using DataLab