http://rpubs.com/dlarue/mte
http://rpubs.com/dlarue/507337
library(leaflet)
mte<-data.frame(lat=c(27.986065,27.966389),lng=c(86.922623,86.889999),labels=c("Mount Everest, Nepal","Nuptse Mountain, Nepal"))
map_mte <- mte %>% leaflet() %>% addTiles() %>% addMarkers(popup=~labels)
map_mte