library(leaflet)
map_2ndhome <- leaflet() %>% addTiles() %>% addMarkers(lat=14.4341912, lng=121.0395415,18.39, popup="My dorm and work on 2020/08/09") map_2ndhome