pickerInput默认选择所有选项

Question

我大约有十二个pickerInputs，并且每次运行闪亮的应用程序时，所有内容都设置为未选中。 在输出工作之前，我必须手动选择所有内容，这有点烦人。 有没有一种方法让pickerInput在每次运行应用时默认为“全选”？

Answer 1

您可以使用pickerInput的selected参数。 只需将所有选择传递给selected ，它将在应用初始化时选择所有内容。 将action-box选项设置为True也会默认创建“全 选”和“ 取消全选”按钮，这将改善您当前的工作流程。 这是一个最小的示例：

library(shiny)
library(shinyWidgets)

ui <- fluidPage(
  pickerInput(
    inputId = "my_input",
    label = "TEST",
    choices = 1:10,    # provide choices - integers from 1 to 10
    selected = 1:10,   # select - integers from 1 to 10 
    options = list(`actions-box` = TRUE),   # build buttons for collective selection
    multiple = T
  )
)

server <- function(input, output) {}

shinyApp(ui = ui, server = server)