library(leaflet)
library(dplyr)
my_map <- leaflet() %>%
addTiles() %>%
addMarkers(lat=37.966655, lng=23.786102,
popup="Department of Biology - National and Kapodistrian University of Athens")
my_map