library(leaflet)

m <- leaflet(options = leafletOptions(minZoom = 0, maxZoom = 13)) %>%
  addTiles() %>%  # add default OpenStreetMap map tiles
  addMarkers(lng=-73.546428, lat=45.522660, 
             popup="Montréal, Jacques-Cartier",
             label = "lng=-73.546428, lat=45.522660")

m