November 29, 2007
library(leaflet)
iconNYC <- makeIcon(
iconUrl = "http://botw-pd.s3.amazonaws.com/newyorkcity_logo.png",
iconWidth=20*215/230, iconHeight=21,
iconAnchorX=20*215/230/2, iconAnchorY=16)
nycLatLong <- data.frame(
lat = c(40.758, 40.733, 40.779, 40.811, 40.752, 40.758, 40.723),
lng = c(-73.985, -74.002, -73.963, -73.946, -73.977, -73.978, -74.002))
nycSites <- c(
"<a href = 'https://www.timessquarenyc.org'>Times Square/a>",
"<a href = 'https://www.nycgo.com/boroughs-neighborhoods/manhattan/greenwich-village/a'>Greenwich Village/a>",
"<a href = 'https://www.metmuseum.org'>Metropolitan Museum of Art/a>",
"<a href = 'https://www.nycgo.com/articles/must-see-harlem'>Harlem Must See/a>",
"<a href = 'http://www.grandcentralterminal.com/transportation/'>Grand Central Station/a>",
"<a href = 'https://www.rockefellercenter.com'>Rockefeller Center/a>",
"<a href = 'http://www.sohonyc.com'>SOHO/a>"
)
nycLatLong %>%
leaflet() %>%
addTiles() %>%
addMarkers(icon = iconNYC, popup = nycSites)