Below is an interactive map created using the Leaflet package in R.
# Create a basic map with custom tile layer
m <- leaflet() %>%
addTiles() %>%
addMarkers(lng = -73.985656, lat = 40.748817, popup = "Empire State Building")
# Display the map
m