library(XML)
doc = xmlParse("doc.xml")
pgs = getNodeSet(doc, "//page")
.Call("R_replaceNodeWithChildren", pgs[[1]])
.Call("R_replaceNodeWithChildren", pgs[[2]])
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.