2/6

library(leaflet)
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