read <- function(title, bot){
readResponse = postForm(bot$apiURL,
action="query",
prop="revisions",
rvlimit="1",
rvprop="content",
format="xml",
titles=title,
.opts=bot$curlOpts)
doc = xmlParse(readResponse, useInternalNodes=TRUE)
pageText <- xmlValue(unlist(getNodeSet(doc, "//api/query/pages/page/revisions/rev/text()", addFinalizer=FALSE))[[1]])
#print(pageText)
free(doc)
rm(doc)
return(pageText)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.