library(leaflet) m <- leaflet() %>% addTiles() %>% # add OpenStreetMap tiles addMarkers(lat=27.469398,lng=83.275521) %>% addPopups(lat=27.469398,lng=83.275521, popup = "Lumbini - Birth Place of Buddha") m # print the map