require(leaflet)
require(leaflet.minicharts)
leaflet() %>%
addTiles() %>%
addFlows(0, 0, 1, 0, col= gray(0.9)) %>%
addCircleMarkers(c(0, 1), c(0, 0), color = "white", fillOpacity = 1, stroke = FALSE) %>%
addShadows()
Run the code above in your browser using DataLab