my_map <- leaflet() %>%
  addTiles() %>%
  addMarkers(lat=51.4749, lng=-0.2216,
             popup="Craven Cottage")
my_map