if (FALSE) {
doc <- xmlTreeParse("https://www.omegahat.net/Scripts/Data/mtcars.xml")
xmlElementsByTagName(doc$children[[1]], "variable")
}
doc <- xmlTreeParse(system.file("exampleData", "mtcars.xml", package="XML"))
xmlElementsByTagName(xmlRoot(doc)[[1]], "variable")
Run the code above in your browser using DataLab