You must provide a reproducible example. But using addControl, you can try:
library(leaflet)
library(htmlwidgets)
library(htmltools)
rr <- tags$div(
HTML('<a href="https://cran.r-project.org/"> <img border="0" alt="ImageTitle" src="/PathToImage/ImageR.jpeg" width="300" height="100"> </a>')
)
map_leaflet <- leaflet() %>%
addTiles() %>%
addMarkers(50, 50) %>%
addControl(rr, position = "bottomleft")
saveWidget(map_leaflet, file="testing.html")
test.html, , ( ) . , . , !