library(leaflet) my_map <- leaflet() %>% addTiles() my_map <- my_map %>% addMarkers(lat=55.56, lng= 12.97, popup="My Office") my_map