my_map <- leaflet() %>% addTiles() my_map <- my_map %>% addMarkers(lat=49.246292, lng= -123.116226, popup="City of Vanouver") my_map