從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訪問該函數的文檔。