if (require(polmineR.sampleCorpus) && require(rcqp)){
use(polmineR.sampleCorpus)
bt <- partition("PLPRBTTXT", list(text_id=".*"), regex=TRUE)
speeches <- as.speeches(bt, sAttributeDates="text_date", sAttributeNames="text_name")
foo <- blapply(speeches, function(x, ...) slot(x, "cpos"))
}
Run the code above in your browser using DataLab