# NOT RUN {
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