library(leaflet) my_map <- leaflet() %>% addTiles() %>% addMarkers(lat=43.0870, lng=-79.0700,popup="Niagra Falls") my_map