Tourist points of interest in the city of Barcelona

This Leafet map takes information from BarcelonaOpenData web site. File can be dowloaded from this link. Each point of interest marker contain a link with more information.

library(xml2)
data.source<-"http://www.bcn.cat/tercerlloc/pits_opendata.xml"
xmlfile<-read_xml(data.source)
xml.data<-xml_children(xmlfile)[2]
nodes<-xml_children(xml.data)

datanodes<-nodes[2:length(nodes)]

#' <code_url label="Web">goo.gl/S0KleC</code_url>
#' <title label="">El parc de la Ciutadella</title>
#' <gmapx label="Lat">41.38584</gmapx>
#' <gmapy label="Long">2.1860828</gmapy>
#'<code_url label="Web">goo.gl/S0KleC</code_url>

lat<-xml_double(xml_find_first(datanodes,".//gmapx"))
lng<-xml_double(xml_find_first(datanodes,".//gmapy"))
name<-xml_text(xml_find_first(datanodes,".//title"))
web<-xml_text(xml_find_first(datanodes,".//code_url"))



places<-data.frame(name,lat,lng,web)

library(leaflet)

#create de text for the popup including the web site and the name
popups<-paste0("<a href='http://",places$web,"'>",places$name,"</a>")

mymap<-places%>%
  leaflet()%>%
  addTiles()%>%
  addMarkers(popup=popups, clusterOptions=markerClusterOptions())

mymap