R/getCorpus.r

In alfcrisci/rTwChannel: Twitter channel stream analitics

#' getCorpus
#'
#' @description Creating corpus object by using tm R package a from messages.
#'
#' @param  textVector   Character  Message of tweet
#' @param  hashtag    logical remove hashtag from corpus
#' @param  elim_words    character the words to be removed from corpus
#' @return  Return   a tm corpus of message purged by mentions and links.
#' @author  Istituto per la Bioeconomia Firenze Italy  Alfonso Crisci \email{alfonso.crisci@@ibe.cnr.it}
#' @keywords  Tm, corpus
#'
#'
#'
#' @export

getCorpus <-function(textVector, hashtag=FALSE,elim_words)
{ if ( hashtag==TRUE)
  {textVector=qdapRegex::rm_hash(textVector)}
  textVector=qdapRegex::rm_url(textVector)
  textVector=trim_users(textVector)
  textVector=trim_oddchar(textVector)
  textVector=paste(textVector,sep="",collapse=" ")
  doc.corpus <- tm::Corpus(VectorSource(textVector))
  doc.corpus <- tm::tm_map(doc.corpus, tolower)
  doc.corpus <- tm::tm_map(doc.corpus, removeNumbers)
  doc.corpus <- tm::tm_map(doc.corpus, removePunctuation)
  doc.corpus <- tm::tm_map(doc.corpus, PlainTextDocument)
   doc.corpus <- tm_map(doc.corpus, removeWords, elim_words)
  return(doc.corpus)
}