library(leaflet)
data <- read.csv("himalaya.txt",
header=TRUE)
data$Lat <- data$LatDeg + (data$LatMin + data$LatSec / 60) / 60
data$Lng <- data$LngDeg + (data$LngMin + data$LngSec / 60) / 60
coord <- data.frame(popup=data$Name,
lat=data$Lat,
lng=data$Lng)
coord %>%
leaflet() %>%
addTiles() %>%
addMarkers()
## Assuming "lng" and "lat" are longitude and latitude, respectively