Simple application with leaflet

leaflet() %>% addTiles() %>%
  addMarkers(lat = c(31.203516, 31.209357), lng = c(29.882279, 29.959831), popup = c("Home", "Work"))