Shiny应用批量更新选择器时避免列选择器清空的问题

点击「Update All」时，先更新了Dataset1和Dataset2的选择，这会触发对应的observeEvent事件。原事件仅更新列选择器的choices参数，但未指定selected，导致列选择器的选中值被清空。后续设置selected的操作因反应式执行顺序问题，被前面的清空操作覆盖，最终列选择器显示为空。

修改监听数据集变化的observeEvent，在更新列选择器选项时，同时保留当前已选且存在于新数据集中的列；批量更新逻辑保持正常传递选中列即可。

library(shiny)
library(shinyWidgets) # pickerInput属于shinyWidgets包，需显式加载

ui <- fluidPage(
  tags$h1("Dataset1"),
  pickerInput("select_dataset1", "Dataset:", choices = c("iris", "mtcars", "ToothGrowth")),
  pickerInput("select_columns1",  "Columns:", c(), multiple = TRUE),
  tags$h1("Dataset2"),
  pickerInput("select_dataset2", "Dataset:", choices = c("iris", "mtcars", "ToothGrowth")),
  pickerInput("select_columns2",  "Columns:", c(), multiple = TRUE),
  tags$br(),
  tags$h1("Update All"),
  pickerInput("select_dataset3", "Dataset:", choices = c("iris", "mtcars", "ToothGrowth")),
  pickerInput("select_columns3",  "Columns:", c(), multiple = TRUE),
  actionButton("update_all", "Update All")
)

server <- function(input, output, session) {
  
  observeEvent(input$select_dataset1, {
    new_cols <- colnames(get(input$select_dataset1))
    # 保留当前已选且在新数据集列中的选项
    keep_selected <- intersect(input$select_columns1, new_cols)
    updatePickerInput(session, "select_columns1", choices = new_cols, selected = keep_selected)
  })
  
  observeEvent(input$select_dataset2, {
    new_cols <- colnames(get(input$select_dataset2))
    keep_selected <- intersect(input$select_columns2, new_cols)
    updatePickerInput(session, "select_columns2", choices = new_cols, selected = keep_selected)
  })
  
  observeEvent(input$select_dataset3, {
    new_cols <- colnames(get(input$select_dataset3))
    keep_selected <- intersect(input$select_columns3, new_cols)
    updatePickerInput(session, "select_columns3", choices = new_cols, selected = keep_selected)
  })
  
  observeEvent(input$update_all, {
    dataset <- input$select_dataset3
    columns <- input$select_columns3
    
    updatePickerInput(session, "select_dataset1", selected = dataset)
    updatePickerInput(session, "select_dataset2", selected = dataset)
    updatePickerInput(session, "select_columns1", selected = columns)
    updatePickerInput(session, "select_columns2", selected = columns)
  })
  
}

shinyApp(ui, server)

1. 每个数据集监听事件中，通过intersect()筛选出当前已选列与新数据集列的交集，作为selected参数传入updatePickerInput，避免切换数据集时清空选中列。
2. 补充加载shinyWidgets包，解决pickerInput函数未定义的潜在错误。

内容的提问来源于stack exchange，提问作者MLEN