Do you recognize this ?
library(leaflet) mymap <- leaflet() %>% addMarkers(lat = 59.851897, lng =30.472383,popup = "jazzzab") %>% addTiles() mymap