library(leaflet)
my_map<-leaflet() %>% addTiles() %>%
  addMarkers(lat=12.878079, lng=77.545749, 
             popup="Nitesh Palace")
my_map