library(leaflet) leaflet() %>% addTiles() %>% addMarkers(lng=-76.603611, lat=39.283167, popup="Mr. Trash Wheel Cleans Here!") %>% addMarkers(lng=-76.580603, lat=39.279603, popup="Professor Trash Wheel Cleans Here!")