xml_structure(read_xml("<a><b><c/><c/></b><d/></a>"))
rproj <- read_html(system.file("extdata","r-project.html", package = "xml2"))
xml_structure(rproj)
xml_structure(xml_find_all(rproj, ".//p"))
h <- read_html("<body><p id = 'a'></p><p class = 'c d'></p></body>")
html_structure(h)
Run the code above in your browser using DataLab