R Shiny Dashboard 中的词云显示在查看窗格而不是应用程序窗口中

Question

我正在尝试在 Shiny Dashboard 中创建一个 wordcloud。除了 wordcloud 的输出显示在 R Studio 内的查看窗格中而不是闪亮的应用程序中之外，单选按钮控件和所有其他东西都工作正常。

Shiny 编程的新手，并尝试在 server.R 中同时使用 renderPlot 和 reactivePlot

有人知道为什么吗？

这是我的代码快照

                shinyUI(dashboardPage(

              # DASHBOARD HEADER
              dashboardHeader(title = "ABC Classification"),

              # DASHBOARD SIDEBAR
              dashboardSidebar(
                sidebarMenu(
                  menuItem("Word Cloud", tabName = "wordcloud")
                )
            ),

            dashboardBody(
                  tabItems(
                    tabItem(tabName = "wordcloud",
                      fluidRow(
                        box(title = "Select option", radioButtons("radio_buttons", "A", "B", "C" choices = c("A", "B", "C"))),
                        box(title = " Word Cloud ", plotOutput("word_cloud"))
                        )
                    )
                )
            )




            shinyServer(function(input, output) {
              output$word_cloud = renderPlot(
                if (input$radio_buttons == "A"){
                  wordcloud2(cloud_a)
                }else if (input$radio_buttons == "B"){
                  wordcloud2(cloud_b)
                }else if (input$radio_buttons == "C"){
                    wordcloud2(cloud_c)
                }
                )  
            })

Answer 1

首先，请分享您的cloud_a 等数据，以便我们重现您的示例。我现在从帮助页面中举一个例子。

您唯一的错误是您应该使用wordcloud2Output 而不是plotOutput 和renderWordcloud2 而不是renderPlot。有了这个，它工作正常。最小的例子：

library(wordcloud2)
shinyApp(shinyUI(
  fluidPage(wordcloud2Output("word_cloud"))),
  shinyServer(function(input, output) {
    output$word_cloud = renderWordcloud2({
      wordcloud2(demoFreq)
    })
  })
)

感谢您指点包裹，我不知道但我喜欢它！