# NOT RUN {
cfg<-get("cfg",envir=.restatapi_env)
rav<-get("rav",envir=.restatapi_env)
toc_endpoint<-eval(parse(text=paste0("cfg$TOC_ENDPOINT$'",rav,"'$ESTAT$xml")))
# }
# NOT RUN {
xml_leafs<-xml2::xml_find_all(xml2::read_xml(toc_endpoint),".//nt:leaf")
extract_toc(xml_leafs[1])
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab