打印每次迭代的循环结果

Question

我正在使用CTM进行文本挖掘，我正在使用以下代码运行循环来定义最佳主题数：

best.model <- lapply(seq(2, 60, by = 1), function(k){CTM(dtm_tfidf,k,
              method="VEM", control=control_CTM_VEM, model = NULL)})
best.model.logLik <- as.data.frame(as.matrix(lapply(best.model, logLik)))
best.model.perplex <- as.data.frame(as.matrix(lapply(best.model, perplexity)))
list(best.model.logLik, best.model.perplex)

由于这需要很长时间才能得到任何结果，有没有办法获得每次迭代的结果？有了这段代码，我只能在最后得到结果，如果我决定停止它，我什么也得不到。