library(XML)
#TO-DO: do this for all books in Folger Corpus folder
doc <- xmlTreeParse("Oth.xml")
title_book <- xmlValue(xpathApply(doc[[1]][[1]][[1]], "//title")[[1]])
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.