library(leaflet)
df <- data.frame(
    lat = c(10.7798885, 10.8660182),
    lng = c(106.6989765, 106.6331688),
    name = c('Notre Dame Cathedral of Saigon', 'The Bactis')
)
df %>% leaflet(width = 910, height = 640) %>%
    addProviderTiles('Esri.WorldImagery') %>%
    addMarkers(popup = df$name)