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

Selecting all values from drop down menu in Flexdashbaord

我已经获取了 Shiny Flexdashboard 之一的示例代码。 在示例代码中,有一个下拉菜单一次 select 一个区域。 我只想知道有没有办法 select 下拉菜单中的所有值?

请在下面找到代码 link,

beta.rstudioconnect.com/jjallaire/shiny-embedding

要获取代码,请单击最右上角的 "Source Code"。

此致,

墨涵

你可以做到

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 访问有关该函数的文档。