Estou usando o seguinte programa:
library("wordcloud")
library("tm")
library("RColorBrewer")
dados=read.csv("C:/teste/dados.csv", sep=";", dec=",",header=TRUE)
capa=dados$mensagem
corpus <- VCorpus(VectorSource(capa))
corpus1 <- tm_map(corpus, stripWhitespace)
corpus2 <- tm_map(corpus1, tolower)
corpus2 <- tm_map(corpus2, removePunctuation)
wordcloud(corpus2, random.order = F, colors = brewer.pal(5, "Dark2"))
E está dando o seguinte erro:
Erro: inherits(doc, "TextDocument") is not TRUE