A view of Paris

Click on the markers to discover the landmark to which they correspond!

library(leaflet)
lat <- c(48.846559,48.846870,48.852966,48.860294,48.862636)
lon <- c(2.344506,2.337170,2.349902,2.338629,2.323265)
popups <- c("Le Pantheon",
            "Le Jardin du Luxembourg",
            "Notre Dame de Paris",
            "Le Louvre",
            "Le Jardin des Tuileries")

my_map <- leaflet() %>%
    addTiles() %>%
    addMarkers(lon, lat, popup = popups)
my_map