library(leaflet) my_map <- leaflet() %>% addTiles() %>% addMarkers(lat=53.235628, lng=50.192113, popup="kuaniv's Office") my_map