Sentiment analysis code

sentiment_extraction.R

library(coreNLP)
library(qdap)

#Load the textData from csv

textData <- read.csv("comments.csv")

initCoreNLP(libLoc = "C:/Users/schirappat/Documents/R/win-library/3.3/coreNLP/extdata/stanford-corenlp-full-2016-10-31",mem = "8g", type = "english")
#Restart the machine if memory allocation error occurs


sentences <- qdap::sent_detect(textData[i])
#Find the sentiment of this sentence here itself
    
annotS <- coreNLP::annotateString(sentences)

#If getSentiment is not working, make sure that corenlp.propoerties has the "sentiment" annotator is present
sentiment <- coreNLP::getSentiment(annotS)