Peer-graded Assignment: R Markdown and Leaflet

library(leaflet)

my_map <- leaflet() %>%
  addTiles() %>%  
  addMarkers(lng=7.68465, lat=45.0432, popup="Salsa Rossa - Really good pizza in Turin")
my_map