library(dplyr)
library(tidytext)
sk <- as.character(const.df$text[122])
sk <- unlist(strsplit(sk, "\n"))
sk <- data.frame(line = 1:length(sk), text = sk, stringAsFactors =
FALSE)
sk <- sk %>%
unnest_tokens(word, text) %>%
count(word, sort = TRUE) %>%
anti_join(stop_words)`
Ошибка в check_input (x): ввод должен быть символьным вектором любой длины или списком символьных векторов, каждый из которых имеет длину 1.
Я не уверен, что касается ошибки, так как я сделал текст символьным вектором и указал длину 1. Любая помощь приветствуется!