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