Week 2 assignment - Developing Data Products

Map of Italy and Rome

library(leaflet)
rome_popup <- paste(sep = "<br/>",
  "<b><a href='https://en.wikipedia.org/wiki/Rome'>Rome, Italy</a></b>",
  "Rome's history spans more than 2,500 years. While Roman mythology dates the founding of Rome at around 753 BC, the site has been inhabited for much longer, making it one of the oldest continuously occupied sites in Europe"
)

italy_map <-leaflet() %>% addTiles() %>%
  addPopups(12.5040169, 41.909986, rome_popup,
    options = popupOptions(closeButton = TRUE)
  ) %>% setView(12.3969169, 41.909986, 6)

italy_map