如何在ShinyApp的mainPanel中渲染DT::data.table和wordcloud2::wordcloud2？

Question

如何在ShinyApp的mainPanel中渲染DT::data.table和wordcloud2::wordcloud2？

下面是一个可重复使用的示例。当我注释wordcloud2代码并调整代码时，DT::data.table呈现正常。

# Only run examples in interactive R sessions
if (interactive()) {

    library(wordcloud2)

    n <- 1

    # Define UI
    ui <- fluidPage(

        # Application title
        titlePanel("titlePanel"),

        sidebarLayout(

            # Sidebar with a slider input
            sidebarPanel(
                textInput("user_input", h3("Field example"), 
                          value = "value"),
                numericInput('size', 'Size of wordcloud', n)
            ),

            # Show a plot of the generated distribution
            mainPanel(
                tabsetPanel(type = "tabs",
                            tabPanel("DT + wordcloud2", DTOutput('tbl'),
                                     wordcloud2Output('wordcloud2')),
                            tabPanel("Plot", plotOutput("plot")),
                            tabPanel("Summary",verbatimTextOutput("summary")),
                            tabPanel("about", tableOutput("table"))))))

    # Server logic
    server <- function(input, output) {

        output$tbl = renderDT(
            iris, options = list(lengthChange = FALSE))

        output$wordcloud2 <- renderWordcloud2({
            wordcloud2(demoFreq, size=input$size)})
    }

    # Complete app with UI and server components
    shinyApp(ui, server)
}

我想要一个在DT::data.table下方居中的wordcloud2。

提前谢谢。

Answer 1

这适用于wordcloud2的最新Github版本。要安装它，请执行以下操作：

remotes::install_github("Lchiffon/wordcloud2")