library(XML)
# call fixPages() first.
getReferences =
function(doc)
{
if(is.character(doc)) {
doc = fixPages(htmlParse(doc, replaceEntities = TRUE))
}
browser()
nodes = getNodeSet(doc, "//p[contains(lower-case(.), 'publication')]/following-sibling::p")
txt = sapply(nodes, xmlValue)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.