如何让Shiny中的observeEvent先于observe执行？

我有一些在observeEvents中根据前置输入更新的pickerInputs，另外还有在observe中运行的函数。当切换数据集选择器时，observe会带着当前数据集不存在的列输入执行，从而引发错误。比如示例代码中，把数据集从mtcars切换到iris时会打印错误信息，该怎么解决？

示例代码：

library(shiny)
library(shinyalert)

ui <- fluidPage(
  
  pickerInput("dataset", "dataset", c("mtcars", "iris")),
  pickerInput("columns", "columns", c()),
  actionBttn("Button", "Select")
  
)

server <- function(input, output, session) {
  
  observeEvent(input$dataset, {
    
    req(input$dataset)
    choices <- names(get(input$dataset))
    
    updatePickerInput(session = session,
                      inputId = "columns",
                      choices = choices)
    
    
  })
  
  observe({
    
    req(input$dataset)
    req(input$columns)
    
    print(input$dataset)
    print(input$columns)
    
    if(!any(input$columns == names(get(input$dataset)))) print("Error")
    
  })


}

shinyApp(ui, server)

问题核心是切换数据集时，observeEvent更新列选择器的动作与observe的触发存在时序差：observe会先读取旧的列选中值，再匹配新数据集的列，导致错误判断。以下是几种可行的解决方式：

方法1：切换数据集时清空列选择器的选中值 #

在更新pickerInput时主动清空之前的选中项，这样切换数据集后input$columns会变为空，observe中的req(input$columns)会阻止代码继续执行，直到用户重新选择新数据集的列：

library(shiny)
library(shinyalert)
library(shinyWidgets) # 注意：actionBttn来自shinyWidgets包，需加载

ui <- fluidPage(
  
  pickerInput("dataset", "dataset", c("mtcars", "iris")),
  pickerInput("columns", "columns", c()),
  actionBttn("Button", "Select")
  
)

server <- function(input, output, session) {
  
  observeEvent(input$dataset, {
    
    req(input$dataset)
    choices <- names(get(input$dataset))
    
    updatePickerInput(session = session,
                      inputId = "columns",
                      choices = choices,
                      selected = character(0)) # 新增：清空选中值
    
  })
  
  observe({
    
    req(input$dataset)
    req(input$columns)
    
    print(input$dataset)
    print(input$columns)
    
    # 用%in%替代==，判断逻辑更严谨
    if(!any(input$columns %in% names(get(input$dataset)))) print("Error")
    
  })


}

shinyApp(ui, server)

方法2：在observe中先验证列的合法性 #

如果希望保留跨数据集存在的列，可以先筛选出当前数据集中有效的列，再执行后续逻辑，或者用req直接拦截非法输入：

library(shiny)
library(shinyalert)
library(shinyWidgets)

ui <- fluidPage(
  
  pickerInput("dataset", "dataset", c("mtcars", "iris")),
  pickerInput("columns", "columns", c()),
  actionBttn("Button", "Select")
  
)

server <- function(input, output, session) {
  
  observeEvent(input$dataset, {
    
    req(input$dataset)
    choices <- names(get(input$dataset))
    
    updatePickerInput(session = session,
                      inputId = "columns",
                      choices = choices)
    
  })
  
  observe({
    
    req(input$dataset)
    current_cols <- names(get(input$dataset))
    # 筛选出当前数据集中存在的列
    valid_cols <- input$columns[input$columns %in% current_cols]
    # 没有有效列时停止执行
    req(length(valid_cols) > 0, message = "无有效列选中")
    
    print(input$dataset)
    print(valid_cols)
    
    # 后续逻辑统一使用valid_cols，避免错误
    
  })


}

shinyApp(ui, server)

方法3：用响应式对象封装验证后的数据 #

将当前数据集和合法选中列封装成响应式对象，让后续逻辑只依赖经过验证的对象，从根源上避免非法输入：

library(shiny)
library(shinyalert)
library(shinyWidgets)

ui <- fluidPage(
  
  pickerInput("dataset", "dataset", c("mtcars", "iris")),
  pickerInput("columns", "columns", c()),
  actionBttn("Button", "Select")
  
)

server <- function(input, output, session) {
  
  # 封装当前选中的数据集
  current_data <- reactive({
    req(input$dataset)
    get(input$dataset)
  })
  
  # 根据当前数据集更新列选择器
  observeEvent(current_data(), {
    choices <- names(current_data())
    updatePickerInput(session = session,
                      inputId = "columns",
                      choices = choices)
  })
  
  # 封装合法的选中列
  valid_selected_cols <- reactive({
    req(current_data(), input$columns)
    input$columns[input$columns %in% names(current_data())]
  })
  
  observe({
    # 只有存在有效列时才执行
    req(valid_selected_cols())
    
    print(input$dataset)
    print(valid_selected_cols())
    
    # 此处无需再做合法性判断
  })


}

shinyApp(ui, server)

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