library(XML)
p = newXMLNode("top")
newXMLNode("section", attrs = c(id = "a"), parent = p)
newXMLNode("section", attrs = c(id = "b"), parent = p)
.Call("R_clearNodeMemoryManagement", p, PACKAGE = "XML")
rm(p)
gc()
gc()
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.