Metepec-Mexico (Magic Town)

##Installing the package
#install.packages("leaflet")

##R command to display Metepec’s map

##Installing the library
library(leaflet)

## Warning: package 'leaflet' was built under R version 4.1.3

my_map <- leaflet() %>%
  addTiles()

my_map <- my_map %>%
  addMarkers(lat=19.25106, lng= -99.60347, popup="Metepec, Mexico Magic Town") %>%
  addMarkers(lat=19.250478, lng= -99.60355936874191, popup="Former convent San Juan Bautista") %>%
  addMarkers(lat=19.250232921903482, lng= -99.60210829373693, popup="Mud museum") %>%
  addMarkers(lat=19.24853804008038, lng= -99.6049630159265, popup="Church 'El cerro de los Magueyes'") %>%
  addMarkers(lat=19.2523053486507, lng=-99.60478195119231, popup="City Hall") %>%
  addMarkers(lat=19.254128528602855, lng=-99.60540422364143, popup="Artisan market")
my_map