library(leaflet)
m = leaflet()%>%addTiles%>%addMarkers(lat = 30.710920,30.727920,lng = 76.693320,76.8396660,popup = c("8B","IT park"))
m