R Markdown and Leaflet Application

The map:

library("leaflet")
my_map <- leaflet() %>%
  addTiles() %>%
  addMarkers(lat=37.422233, lng=-122.084030,
             popup="Googleplex (Google's large global headquarters)")
my_map