# NOT RUN {
doc <- xmlTreeParse(system.file("exampleData", "mtcars.xml", package="XML"))
r <- xmlRoot(doc)
xmlSApply(r[[2]], xmlName)
xmlApply(r[[2]], xmlAttrs)
xmlSApply(r[[2]], xmlSize)
# }
Run the code above in your browser using DataCamp Workspace