Текстовый майнинг с Tidy Text

Question

Я пытаюсь работать с tidytext и загрузить текстовый файл, но получаю сообщение об ошибке.Может кто-нибудь помочь, пожалуйста?

MyData <- read.table(file="Freetext1.txt", header=TRUE)
MyData <- data_frame(MyData, text=text)
library(tidytext)
tidy_ftp  <-  MyData %>%
  unnest_tokens(word, words)

Ошибка в check_input (x):

Input must be a character vector of any length or a list of character
vectors, each of which has a length of 1.