search for: appendemotion

...y<-do.call(gsub, arguments) arguments<-list(pattern=rem_linebreak,replacement=" ", x=y, ignore.case=TRUE) #Remove line breaks y<-do.call(gsub, arguments) #Append Positive or Negative Emotion arguments<-list(x=y) y<-do.call(appendEmotion, arguments) # Output result<-list( textclean=y, first_ticker=first, all_ticker=signal_words, ticker_count=count) return(result) } resultList<-mclapply(dataframe$text_column,preprocessText) ** end main code ** (T...