# NOT RUN {
dsd_url<-"http://ec.europa.eu/eurostat/SDMX/diss-web/rest/datastructure/ESTAT/DSD_nama_10_a10_e"
tryCatch({
dsd_xml<-xml2::read_xml(dsd_url)},
error=function(e){
message("Unable to download the xml file.\n",e)},
warning=function(w){
message("Unable to download the xml file.\n",w)})
if (exists("dsd_xml")) {extract_dsd("GEO",dsd_xml)}
# }
Run the code above in your browser using DataLab