Shiny中如何在observeEvent循环内调用updatePickerInput更新选项

你的代码存在3处核心问题，逐一修正即可生效：

• updatePickerInput参数使用错误：该函数的第二个参数要求传入要更新的组件ID字符串，你当前传入的input[[paste0("pick", i)]]是对应pickerInput的当前选中值，不是组件ID
• 循环惰性求值问题：R的lapply属于懒加载，迭代变量i不会被实时固定到每次循环的取值，等observeEvent触发时i已经变成循环最终值6，所有观察者都会绑定到第6组组件
• 冗余写法问题：seq(1:input[[paste0("num", i)]])属于不必要的嵌套，直接写1:input[[paste0("num", i)]]即可生成目标整数序列

另外注意pickerInput是shinyWidgets包提供的组件，需要先安装加载该包才能正常使用。

library(shiny)
library(shinyWidgets)

ui <- fluidPage(
  fluidRow(
    column(
      width = 6,
      lapply(
        X = 1:6,
        FUN = function(i) {
          sliderInput(inputId = paste0("num", i), label = i, min = 0, max = 10, value = i)
        }
      )
    ),
    column(
      width = 6,
      lapply(
        X = 1:6,
        FUN = function(i) {
          pickerInput(inputId = paste0("pick", i), label = i, choices = seq(1, i))
        }
      )
    )
  )
)

server <- function(input, output, session){
  lapply(
    X = 1:6,
    FUN = function(i){
      # 用local固定当前迭代的i值，避免惰性求值问题
      local({
        local_i <- i
        observeEvent(input[[paste0("num", local_i)]], {
          updatePickerInput(
            session,
            # 传入正确的组件ID字符串
            inputId = paste0("pick", local_i),
            choices = 1:input[[paste0("num", local_i)]]
          )
        })
      })
    }
  )
}

shinyApp(ui = ui, server = server)

• 在observeEvent外层新增local()包裹，用局部变量local_i存储每次迭代的i值，彻底解决懒加载导致的变量绑定错误
• 修正updatePickerInput的inputId参数，传入正确的组件ID字符串
• 简化choices生成逻辑，删除多余的seq()嵌套
• 补充shinyWidgets包的加载声明，避免找不到pickerInput函数的报错

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