R Markdown and Leaflet

my_map <- leaflet() %>%
    addTiles() %>%
    addMarkers(lat = 51.7548, lng = -1.2544, popup = "Oxford University")
my_map