library(XML)
doc = xmlParse("../inst/examples/trim.xml")
xpathSApply(doc, "//a", xmlValue, trim = TRUE)
# [1] "some text\n and some more"
xpathSApply(doc, "//a", xmlValue, trim = TRUE, recursive = FALSE)
# [1] "some text"
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.