This is the error I am get bingSent when I try to execute the code.
This is the code file.
afinSent <- text_df %>%
inner_join(afin) %>%
group_by(index = date) %>%
summarise(sentiment = sum(score))
# Joining, by = "word"
bingSent <- text_df %>%
inner_join(bing) %>%
count(index = date, sentiment) %>%
spread(sentiment, n, fill = 0) %>%
mutate(sentiment = positive - negative)
# Joining, by = "word"
# Error in enc2utf8(col_names(col_labels, sep = sep)) :
# argument is not a character vector
