library(XML)
top = xmlRoot(xmlTreeParse("replace.xml", useInternalNodes = TRUE))
top[[2]]
tmp = newXMLNode("duncan")
replaceNode(top[[2]], tmp)
saveXM(top)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.