R/read.R

In cbdavis/RSemanticMediaWikiBot: R Semantic MediaWiki Bot

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)
}