DevelopingDataProducts_Project

my.map <- leaflet() %>%
  addTiles() %>%
  addMarkers (lat = 40.03454103223825, lng = -105.30489845523753, popup = "Afternoon Hike") %>%
  addMarkers(lat = 40.0218037268353, lng = -105.24719585153576, popup = "After hike drinks")
my.map