Map

library(leaflet)
my_map <- leaflet() %>%
  addTiles() %>%
  addMarkers(lat=50.941357, lng=6.958307, 
           popup="Cologne Cathedral")
my_map