library(leaflet)

vabinfo <- "<a href='https://en.wikipedia.org/wiki/Vehicle_Assembly_Building'>Vehicle Assembly Building</a>"

vab <- leaflet() %>% 
        addTiles() %>%
        addMarkers(lat=28.586007, lng=-80.650800, popup=vabinfo)
vab