library(XML)
top = xmlRoot(xmlParse("<doc><foo><bar>string</bar><xyz id='1'/></foo></doc>"))
.Call("R_getXMLRefCount", top)
.Call("R_getXMLRefCount", as(top, "XMLInternalDocument") )
gc()
gc()
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.