Неработающий код анализа настроений вызывает следующую ошибку в r

Это ошибка, которую я получаю bingSent, когда пытаюсь выполнить код. Это файл кода.

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

введите описание ссылки здесь