Leaflet test
library(leaflet) leaflet() %>% addTiles() %>% addCircleMarkers(runif(10)*10-90, runif(10)*10+40)