fl = system.file("exampleData", "mtcars.xml", package="XML")
xml <- xmlTreeParse(fl, useInternal=TRUE)
node <- xpathApply(xml, "/*/*")
xpathApply(node[[1]], "/*/*")
xpathApply(node[[1]], "./*/text()|./*/*")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.