Week 2 assignment: map on a webpage

library(leaflet)

leaflet() %>%
  addTiles() %>%
  addMarkers(lng = -6.2155, lat = 57.2736, popup = 'The Isle of Skye')