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)