Code Used

library(leaflet)

statueIcon <- makeIcon(
        iconUrl = "statue.png",
        iconWidth = 31*215/230, iconHeight = 31,
        iconAnchorX = 31*215/230/2, iconAnchorY = 16
)

my_map <- leaflet() %>% 
        addTiles() %>% 
        addMarkers(lat = 40.689247, lng = -74.044502,
                   popup = "<a href='https://www.nps.gov/stli/index.htm'>The Statue of Liberty</a>",
                   icon = statueIcon)
my_map

Map Created