Leaflet

library(leaflet)

leaflet() %>%
addTiles() %>%
addMarkers(
lng = 77.5946,
lat = 12.9716,
popup = "Bangalore, India"
)