R Markdown and Leaflet

Create a web page using R Markdown that features a map created with Leaflet.

Host your webpage on either GitHub Pages, RPubs, or NeoCities.

Your webpage must contain the date that you created the document, and it must contain a map created with Leaflet. We would love to see you show off your creativity!

library(leaflet)

places <- data.frame(
  nam = c("Parque Tezozomoc","Casa de Toño","Dux de Venecia","Restaurante Nicos","Mercado de Azcapotzalco",
           "Casa de la Cultura de Azcapotzalco","Cafeteria el Nevado","Alameda Norte","Parque de la China",
           "Catedral de los Santos Apóstoles Felipe y Santiago"),
  lat = c(19.50101524,19.46672967,19.48012694,19.46527708,19.48309872,19.48083034,19.48021267,19.50009348,
           19.46504255,19.48078335),
  lng = c(-99.21051619,-99.1864511,-99.18674996,-99.17775963,-99.18550199,-99.18631552,-99.18651999,-99.17851397,
           -99.17864086,-99.18523568))

places %>% leaflet() %>% addTiles() %>% addCircles(weight = 10, radius = 10, popup = places$nam)