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