# Monumentos de Valencia (España)
library(leaflet)
library(Rcpp)
Valencia <- data.frame(
    lat = c(39.473503, 39.468, 39.46885, 39.474417, 39.467128,39.475833, 39.475686,39.479325 ),
    lng = c(-0.378942, -0.388269,-0.368364,-0.378444, -0.377183,-0.375, -0.383975,-0.376203))
 
Valencia_popup = popup = c("Mercado Central", "Mercado de Abastos","Mercado de Colón","Lonja de la Seda", "Estación del Norte","Catedral de Santa María de Valencia", "Torres de Cuart",  "Torres de Serranos")
 
Valencia %>% 
    leaflet() %>%
    addTiles() %>%
    addMarkers(popup = Valencia_popup, clusterOptions = markerClusterOptions())