Leaflet Practice

library(leaflet)
my_map <- leaflet() %>%
  addTiles() %>%
addMarkers(lat=37.89, lng=-119.5234, popup = "Yosemite")
my_map