R Markdown and Leaflet

Instructions

Create a web page using R Markdown that features a map created with Leaflet.

Submission

The following map shows Statue of Liberty National Monument, New York

# code not hidden for reproducibility purposes
library(leaflet)
library(dplyr)

libertyIcon <- makeIcon(
  iconUrl = "https://cdn.iconscout.com/icon/premium/png-512-thumb/statue-of-liberty-2-496711.png",
  iconWidth = 45*215/230, iconHeight = 45,
  iconAnchorX = 45*215/230/2, iconAnchorY = 35
)

leaflet() %>% 
  addTiles() %>% 
  addMarkers(lat = 40.6892, lng = -74.0445, popup = "Statue of Liberty", icon = libertyIcon)

---