library(leaflet)
library(dplyr)

my_map <- leaflet() %>%
    addTiles %>% 
    addMarkers(lat = 1.4417, lng = 103.8277,
               popup = "<a href = 'https://thecommodorecondo.sg/'> The Commodore </a>")

my_map