在shinyWidget::dropdownButton中呈现uiOutput

Question

我在shinyWidget::dropdownButton中有一个uiOutput。我的问题是，在我单击下拉按钮之前，依赖于uiOutput中控件的输出不会被呈现。

library(shiny)
library(shinyWidgets)

ui <- fluidPage(
  dropdownButton(uiOutput("placeholder"), icon = icon("cog")),
  verbatimTextOutput("out")
)

server <- function(input, output) {
   output$placeholder <- renderUI(selectInput("dat", "Select Data:",
                             choices = c("mtcars", "ChickWeight")))
   output$out <- renderPrint(summary(get(req(input$dat))))
}

shinyApp(ui, server)

在此应用程序中，您可以看到只有在我第一次单击下拉按钮后才会显示汇总表。从反应式流程中，我猜这是有意义的，但我想知道如何强制uiOutput呈现(以便随后的out可以逐字呈现)？

Answer 1

你可以这样做：

server <- function(input, output) {
  output$placeholder <- renderUI(selectInput("dat", "Select Data:",
                                             choices = c("mtcars", "ChickWeight")))
  outputOptions(output, "placeholder", suspendWhenHidden=FALSE)
  output$out <- renderPrint(summary(get(req(input$dat))))
}