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