Leaflet Map Assignment

knitr::opts_chunk$set(echo = TRUE) # Load library

library(leaflet)

Create Leaflet map

leaflet() %>% addTiles() %>% setView(lng = -74.0060, lat = 40.7128, zoom = 13) %>% addMarkers( lng = -74.0060, lat = 40.7128, popup = “New York City” )