# Obtain "emotions" data
data("emotions")
# Obtain "tinytrolls" data
data("tinytrolls")
if (FALSE) {
# Obtain emoxicon scores for first 10 tweets
emotions_tinytrolls <- emoxicon_scores(text = tinytrolls$content, lexicon = emotions)
}
Run the code above in your browser using DataLab