Create a leaflet map object.
library(leaflet)
map <- leaflet() %>% addTiles()
Create a marker with a picture of Benrath Palace and a link to its homepage.
benrathPalaceIcon <- makeIcon(
iconUrl = "http://www.utp.ac.pa/sites/default/files/Edif1.jpg",
iconWidth = 30*408/255, iconHeight = 30,
iconAnchorX = 30*408/255/2, iconAnchorY = 30/2
)
Add the marker to the map and display the map.
UTPPopup <- c("<a href= 'http://www.utp.ac.pa' >UTP<br><img src='http://www.utp.ac.pa/sites/default/files/Edif1.jpg' width='210' height='132' alt='Foto Corps de Logis' title='Foto Utp'></a>")
map %>%
addTiles() %>%
addMarkers(lat=9.0234662, lng=-79.531666, popup = UTPPopup)