library(leaflet)
## Warning: package 'leaflet' was built under R version 3.5.2
disneyIcon <-makeIcon(
iconUrl = "http://www.pvhc.net/img25/geiuwbgarntxqsuahgts.png",
iconWidth = 60*215/230,
iconHeight = 50,
iconAnchorX = 31*215/230/2,
iconAnchorY = 16)
disneyLatLong <-data.frame(
lat =c(28.385071),
lng =c(-81.563808))
disneySite <-c("<a href='https://en.wikipedia.org/wiki/Walt_Disney_World'>Read About Disney World</a>")
disneyLatLong %>%
leaflet() %>%
addTiles() %>%
addMarkers(icon=disneyIcon, popup=disneySite)
disneyLatLong
## lat lng
## 1 28.38507 -81.56381