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