title: Tidy doesn't work, gives this error : No tidy method for objects of class LDA_Gibbs
body: <p>This code shows an error : Error: No tidy method for objects of class LDA_Gibbs</p>
  
  <p>I don't understand why.....whenever i try to do
       test_lda_td2 &lt;- tidy(test_lda2) this shows error.
  Need some solutions</p>
  
  <pre><code>library(NLP)
  library(tm)
  library(tidytext)
  library(stringr)
  library(tidyr)
  library(topicmodels)
  library(tidyverse)
  
  mywords&lt;- read.csv("mystop.csv",header =F,sep = ",")
  mywords &lt;- as.character(mywords)
  mywords &lt;- c(mywords, stopwords())
  
  filelist = list.files(pattern = ".*.txt")
  files &lt;- lapply(filelist,readLines)
  
  (docs &lt;- VCorpus(VectorSource(files)))
  
  docs &lt;-tm_map(docs,content_transformer(tolower))
  docs &lt;- tm_map(docs, removePunctuation)
  docs &lt;- tm_map(docs, removeNumbers)
  docs &lt;- tm_map(docs, removeWords, mywords)
  
  docs &lt;- tm_map(docs, removeWords,stopwords("english"))
  docs &lt;- tm_map(docs, stripWhitespace)
  
  toSpace &lt;- content_transformer(function(x, pattern) { return (gsub(pattern, 
  " " , x))})
  docs &lt;- tm_map(docs, toSpace, "-")
  docs &lt;- tm_map(docs, toSpace, "’")
  docs &lt;- tm_map(docs, toSpace, "‘")
  docs &lt;- tm_map(docs, toSpace, "•")
  docs &lt;- tm_map(docs, toSpace, "”")
  docs &lt;- tm_map(docs, toSpace, "“")
  
  #...............
  dtm &lt;- DocumentTermMatrix(docs)
  rownames(dtm) &lt;- filelist
  freq &lt;- colSums(as.matrix(dtm))
  length(freq)
  ord &lt;- order(freq,decreasing=TRUE)
  
  d &lt;- data.frame(word = names(freq),freq=freq[ord])
  
  new_dtm&lt;-dtm
  
  burnin &lt;- 4000
  iter &lt;- 2000
  thin &lt;- 500
  seed &lt;-list(2003,5,63,100001,765)
  nstart &lt;- 5
  best &lt;- TRUE
  k &lt;- 3
  test_lda2 &lt;-LDA(new_dtm,k, method="Gibbs",
  control=list(nstart=nstart, seed = seed, best=best,
  burnin = burnin, iter = iter, thin=thin))
  
  test_lda_td2 &lt;- tidy(test_lda2) &lt;---Error
  
  lda_top_terms2 &lt;- test_lda_td2 %&gt;%
  group_by(topic) %&gt;%
  top_n(10, beta) %&gt;%
  ungroup() %&gt;%
  arrange(topic, -beta)
  
  lda_top_terms2 %&gt;%
  mutate(term = reorder(term, beta)) %&gt;%
  ggplot(aes(term, beta, fill = factor(topic))) +
  geom_bar(stat = "identity", show.legend = FALSE) +
  facet_wrap(~ topic, scales = "free") +
  coord_flip()
  </code></pre>