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

Question

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

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

beta.rstudioconnect.com/jjallaire/shiny-embedding

代码，点击＆＃34;源代码＆＃34;在极右边。

此致

莫汉

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访问该功能的文档。