Rmarkdown

library(leaflet)

map <- leaflet() %>% addTiles()

CubbonParkBanIcon <- makeIcon(
   iconUrl = "https://en.wikipedia.org/wiki/Cubbon_Park#/media/File:Cubbon_Park_W.jpg",
   iconWidth = 30*408/255, iconHeight = 30,
   iconAnchorX = 30*408/255/2, iconAnchorY = 30/2
)

CubbonParkBanPopup <- c("<a href= 'https://en.wikipedia.org/wiki/Cubbon_Park' >Benrath Palace<br><img src='https://en.wikipedia.org/wiki/Cubbon_Park#/media/File:Cubbon_Park_W.jpg' width='210' height='132'  alt='Cubbon Park Bangalore' title='Cubbon Park Bangalore'></a>")
map %>%
   addTiles() %>%
   addMarkers(lat=12.971027, lng=77.590550, popup = CubbonParkBanPopup)