leaflet_maps.R

library(leaflet)
library(htmlwidgets)
locations <- data.frame(
  name = c("Yale University", "Harvard University"),
  lat = c(41.3163, 42.3736),       
  long = c(-72.9223, -71.1097)    
)
leaflet(data = locations) %>%
  addTiles() %>%
  addMarkers(lng = ~long, lat = ~lat, popup = ~name) %>%
  setView(lng = mean(locations$long), lat = mean(locations$lat), zoom = 2)

#saveWidget(map, file = "map_Yale_Harvard.html")