Leaflet Map Example

library(leaflet)
# Create a Leaflet map
leaflet() %>% 
  addTiles() %>% 
  addMarkers(lng = -73.985428, lat = 40.748817, popup = "Hello, Leaflet!")