Визуализация моделирования тем с использованием LDAvis и R shinyapp и настройки параметров

Question

Я использую LDAvis в R блестящем приложении.

Вот код, и он работает без ошибок.

# docs is a csv file with a "text" column, e.g.   
# docs <- read.csv("docs.csv",sep=",",header=TRUE)

ui <- navbarPage(
  title = "NLP app",

  tabPanel("Topic Model",icon = icon("group"), 
           fluidPage(

             headerPanel(""),
             titlePanel(p(h2("Topic Modelling example",style = "color:#4d3a7d"))),

             #sidebarPanel(
             wellPanel(tags$style(type="text/css", '#leftPanel { width:200px; float:left;}'), style = "background: lightgrey",
                       id = "leftPanel",
                       sliderInput("nTopics", "Number of topics to display", min = 5, max = 50, value = 10, step=5),
                       sliderInput("nTerms", "#top terms per topic", min = 10, max = 50, value = 20, step=5),
                       tags$hr(),
                       actionButton(inputId = "GoButton", label = "Go",  icon("refresh"))
         ),
             mainPanel( 
               tabPanel("Topic Visualisation", hr(),helpText(h2("Please select a topic!")),  visOutput('visChart')))
           )
  )
)

# server
server <- function(input, output, session) {

  Topic_Subset <- reactive({

    docs <- docs$text  
    nTopics <- input$nTopics

    # topic model using text2vec package
    tokens = docs %>% 
      tolower %>% 
      word_tokenizer

    it = itoken(tokens, progressbar = FALSE)
    v = create_vocabulary(it,stopwords=tm::stopwords("en")) 
    vectorizer = vocab_vectorizer(v)
    dtm = create_dtm(it, vectorizer, type = "dgTMatrix")

    lda_model = text2vec::LDA$new(n_topics = nTopics, doc_topic_prior = 0.1, topic_word_prior = 0.01)
    lda_model$fit_transform(x = dtm, n_iter = 1000, 
                        convergence_tol = 0.001, n_check_convergence = 25, 
                        progressbar = FALSE)

    return(lda_model) # 
  })

  output$visChart <- renderVis({

    input$GoButton

    isolate({
      nterms    <- input$nTerms
      lda_model <- Topic_Subset()
    })

    lda_model$plot(out.dir = "./results", R = nterms, open.browser = FALSE)

   readLines("./results/lda.json")

  })
}


shinyApp(ui = ui, server = server)

Я бы хотел посмотреть, возможно ли использовать width = "80%" в visOutput ('visChart'), например, wordcloud2Output ("a_name", width = "80%"); или любые альтернативные методы, чтобы сделать размер визуализации меньше. В частности, когда я минимизирую блестящее окно приложения, график не помещается на странице. Мой второй вопрос: как я могу инициализировать параметр лямбда (см. Изображение ниже и желтые выделения) с другим числом, например 0,6 (не 1)?