Assignment: R Markdown and Leaflet

library(leaflet)
leaflet() %>% addTiles() %>% addMarkers(lat=40.7589, lng=-73.9851, popup = "Times Square")