Ma carte

library(leaflet)
leaflet() %>%
  addTiles() %>%
  addMarkers(lng = 2.3488, lat = 48.8534, popup = "Paris")