library(leaflet) my_map <- leaflet() %>% addTiles() %>% addMarkers(lat=51.64430, lng=-2.6727, popup="Open Mic Night") my_map