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