library(leaflet)
my_map <- leaflet() %>% addTiles() my_map <- my_map %>% addMarkers(lat= 43.128002, lng= -77.665474, popup="This is my home town Airport") my_map