Я запускаю следующий код, но получаю:
Ошибка: невозможно принудить тип «замыкание» к вектору типа «символ»
#Load required packages
library(ggplot2)
library(tm)
library(wordcloud)
library(syuzhet)
#get the data from whatsapp chat
texts <- readLines("abc.txt")
#let us create the corpus
docs <- Corpus(VectorSource(text))
#clean our chat data
trans <- content_transformer(function (x , pattern ) gsub(pattern, " ", x))
docs <- tm_map(docs, trans, "/")
docs <- tm_map(docs, trans, "@")
docs <- tm_map(docs, trans, "\\|")
docs <- tm_map(docs, content_transformer(tolower))
docs <- tm_map(docs, removeNumbers)
docs <- tm_map(docs, removeWords, stopwords("english"))
docs <- tm_map(docs, removePunctuation)
docs <- tm_map(docs, stripWhitespace)
docs <- tm_map(docs, stemDocument)