{r include=FALSE} library(leaflet) library(dplyr)
#My location

leaflet() %>%
setView(lng =77.5011, lat =27.2038  , zoom = 16) %>%
addTiles() %>%
addMarkers(lng = 77.5011, lat = 27.2038 , popup = "My location")