Week 2 Assignment - RMarkdown and Leaflet

List of US Capital Cities

# US Capital City list comes from https://github.com/TransferOrg/wapo-map-data/blob/master/data/us-state-capitals.csv
capitals <- read.csv('us-state-capitals.csv')

Leaflet Map

m <- leaflet() %>%
  addTiles() %>%  # Add default OpenStreetMap map tiles
  addMarkers(lng=capitals$longitude,
             lat=capitals$latitude,
             popup=paste(capitals$description, capitals$name, sep=', '))
m  # Print the map