Untitled

library(leaflet)

## Warning: package 'leaflet' was built under R version 3.4.4

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

RizalParkIcon <- makeIcon(
  iconUrl = "https://nadsfil9rmgasanaysay.files.wordpress.com/2016/02/rizalpark.jpg",
  iconWidth = 70, iconHeight = 70, iconAnchorX = 31*215/230/2, iconAnchorY = 16
)

RizalPark <- c("<a href= 'https://en.wikipedia.org/wiki/Rizal_Park' >Jose Rizal Park</a>")
leaflet() %>%
addTiles() %>%
addMarkers(lat=14.5838237, lng=120.9809835, popup = RizalPark, icon = RizalParkIcon)