Today is 2018-11-16
library(leaflet) my_map <- df %>% leaflet() %>% addTiles() %>% addMarkers(popup = labels)