map.r

library(leaflet)
my_map <- leaflet() %>% addTiles() 
my_map <- my_map %>% addMarkers(lat=31.54, lng= 19.5, popup="BULC")
my_map