r - 从 Flexdashbaord 的下拉菜单中选择所有值

Question

我采用了其中一个 Shiny Flexdashboard 的示例代码。在示例代码中，有一个下拉菜单可以一次选择一个区域。我只想知道有没有办法选择下拉菜单中的所有值？

请在下面的链接中找到代码，

beta.rstudioconnect.com/jjallaire/shiny-embedding

对于代码，单击右上角的“源代码”。

问候，

莫汉

Answer 1

你可以做

library(shiny)
ui = fluidPage(
  selectInput("sel", NULL, letters[1:2], multiple = T),
  actionButton("but", "all")
)
server <- function(input, output, session) {
  observeEvent(input$but, {
    updateSelectInput(session, "sel", selected = letters[1:2])
  })
}
shinyApp(ui, server)

用于?updateSelectInput访问有关该功能的文档。