将LDAvis输出嵌入到Rmarkdown

Question

我正试图将 LDAvis输出嵌入到Rmarkdown 中，并与其他具有完整交互性的rmarkdown输出一样共享html输出。

我在rmarkdown中尝试了2种方法

1. 这不会在html输出中产生任何东西

   ```{r}
   data2 <- with(TwentyNewsgroups, createJSON(phi, theta, doc.length, vocab, 
   term.frequency))
   serVis(with(data2, createJSON(phi, theta, doc.length, vocab, 
   term.frequency,R = 25)))
   ```
   

2. 与此相关，LDA交互式输出出现在Rstudio Viewer中，但在浏览器中不显示任何内容

   ```{r}
   
   data2 <- with(TwentyNewsgroups, createJSON(phi, theta, doc.length,
   vocab, term.frequency))
   serVis(with(data2, createJSON(phi, theta, doc.length, vocab, 
   term.frequency, R = 25)), out.dir = "a")
   ```
   
   <iframe width="1200" height="1500" src="a/index.html" frameborder="0"></iframe>
   

我已经尝试过open.browser = TRUE以及FALSE，但是没有解决问题。

注意：“闪亮”不是我的选择，因为我想以附件形式共享交互性。