library(data.table)
set.seed(10)
x <- sample(cannon_reviews[[3]], 3000, TRUE)
sentiment(x)
pol_words <- extract_sentiment_terms(x)
pol_words
pol_words$sentence
pol_words$neutral
data.table::as.data.table(pol_words)
attributes(extract_sentiment_terms(x))$counts
attributes(extract_sentiment_terms(x))$elements
Run the code above in your browser using DataLab