leaflet() %>% addTiles(group = "OpenStreetMap") %>% addProviderTiles("Stamen.Toner",
group = "Toner by Stamen") %>% addMarkers(runif(20, -75, -74), runif(20,
41, 42), group = "Markers") %>% addLayersControl(baseGroups = c("OpenStreetMap",
"Toner by Stamen"), overlayGroups = c("Markers"))
Run the code above in your browser using DataLab