VolcanoesWA

This program places markers on five volcanoes in Washington State Map with URL linked to their detailed description

#vocanoSites<-c("")
df<-data.frame(lat=c(46.8523,45.8590,48.7767,48.1119,46.2024), lng= c(-121.7603,-122.8212,-121.8144,-121.1132,-121.4910))
df%>%leaflet() %>% 
  addTiles()%>%
  addMarkers(popup=c("<a href='https://en.wikipedia.org/wiki/Mount_Rainier'>Mount Rainier</a>",
                     "<a href='http://mountsthelens.com/'>Mount St Helens</a>",
                     "<a href='https://en.wikipedia.org/wiki/Mount_Baker'>Mount Baker,</a>",
                     "<a href='https://en.wikipedia.org/wiki/Glacier_Peak'>Glacier Peak</a>",
                     "<a href='https://en.wikipedia.org/wiki/Mount_Adams_%28Washington%29'>Mount Adams</a>"))