myTests/gc/parent1.R

In omegahat/XML: Tools for Parsing and Generating XML Within R and S-Plus

#  filename = system.file("exampleData", "branch.xml", package = "XML")
  parentNames <- character()
  filename = "<top><f><h/></f><g><h/></g></top>"
  xmlTreeParse(filename,
                handlers =
                  list(h = function(x) {
                   cat("start", xmlName(x), "\n")
                   parentNames <<- c(parentNames, xmlName(xmlParent(x)))
                   cat("end", xmlName(x), "\n")
                  }), useInternalNodes = TRUE)

  table(parentNames)