myTests/validateHierarchy.R

doc = xmlTreeParse("<a>some text<!-- a comment --><?R processing instruction?></a>", asText = TRUE)

all(class(xmlRoot(doc)) == extends("XMLNode"))

all(class(xmlRoot(doc)[[1]]) == extends("XMLTextNode"))

all(class(xmlRoot(doc)[[2]]) == extends("XMLCommentNode"))

all(class(xmlRoot(doc)[[3]]) == extends("XMLProcessingInstruction"))
omegahat/XML documentation built on Jan. 17, 2024, 6:47 p.m.