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