get_docs_topics() Error: The size of nm (8) must be compatible with the size of x (18).

[mpickard-niu]

First, thanks for creating gensimr!

I'm trying to follow the topic modeling tutorial with my own data set. Everything works up to

wrapped_corpus_docs <- get_docs_topics(lda_topics)

where I get this error:

Error in `purrr::set_names()`:
! The size of `nm` (8) must be compatible with the size of
  `x` (18).
Backtrace:
 1. gensimr::get_docs_topics(lda_topics)
 5. rlang::abort(message = message)

Here's the code in context:

docs <- prepare_documents(gc_df$body)
dict <- corpora_dictionary(docs)
corpus_bow <- doc2bow(dict, docs)
(corpus_mm <- serialize_mmcorpus(corpus_bow, 
                                 file = "data/gc_corpus.mm",
                                 auto_delete = FALSE))

tfidf <- model_tfidf(corpus_mm)
corpus_tranformed <- wrap(tfidf, corpus_bow)

lda <- model_lda(corpus_tranformed, id2word = dict, num_topics =4L)
lda_topics <- lda$get_document_topics(corpus_bow)
wrapped_corpus_docs <- get_docs_topics(lda_topics)

Things work if I set num_topics = 2L (or 3 topics) when I create the LDA model with model_lda(), but when I try to model larger number of topics, I get that error. Am I doing something wrong? Or is this a bug?

Thanks in advance!