光沢のあるLDAvisの統合

Question

私はLDAvisバージョン0.3.1に付属している光沢のある統合を利用しようとしています。 githubの（https://github.com/cpsievert/LDAvis/tree/master/inst/examples/shiny）に与えられた例は次のとおりです。

library(LDAvis) 
library(shiny) 

server <- shinyServer(function(input, output, session) { 
    output$myChart <- renderVis({ 
    with(TwentyNewsgroups, 
     createJSON(phi, theta, doc.length, vocab, term.frequency, 
        R = input$nTerms))}) 
}) 

ui <- shinyUI(
    fluidPage(
    sliderInput("nTerms", "Number of terms to display", min = 20, max = 40, value = 30), 
    visOutput('myChart') 
) 
) 

shinyApp(ui = ui, server = server) 

このアプリは、しかし、任意の出力をレンダリングしていないので、私は少し困惑しています。 LDAvisを光沢のあるアプリに統合する方法の最小限の例を教えてもらえますか？

Answer 1

このコードは私のマシンで動作しましたが、まだjavascriptには時間がかかります（約20秒）。これはあなたを助けますか？

library(shiny) 
library(LDAvis) 

data(TwentyNewsgroups, package = "LDAvis") 
ui <- shinyUI(
    fluidPage(
    sliderInput("nTerms", "Number of terms to display", min = 20, max = 40, value = 30), 
    visOutput('myChart') 
) 
) 

server <- shinyServer(function(input, output, session) { 
    output$myChart <- renderVis({ 
    if(!is.null(input$nTerms)){ 
     with(TwentyNewsgroups, 
      createJSON(phi, theta, doc.length, vocab, term.frequency, 
         R = input$nTerms)) 


    } 
      }) 
}) 

shinyApp(ui = ui, server = server)