# NOT RUN {
map <- CreateWebMap()
lng <- c(-112.049705, -122.171257, -77.367458, -149.803565, -80.248344)
lat <- c(43.517810, 37.456526, 38.947206, 61.187905, 26.080860)
pop <- c("ID", "CA", "VA", "AK", "FL")
map <- leaflet::addMarkers(map, lng, lat, popup = pop)
map
# }
Run the code above in your browser using DataLab