如何创建可通过元素访问的Shiny响应式输入列表？

方法一：使用reactive()构建响应式列表 #

将输入列表包裹在reactive()中，每次输入值变化时，列表会自动更新。访问该列表时需要调用响应式函数（加()）：

# 创建响应式输入列表
vec_inputs <- reactive({
  list(input$widget1, input$widget2)
})

# 在观察者中遍历打印输入值
observe({
  # 用seq_along遍历，避免空列表时出错
  for (i in seq_along(vec_inputs())) {
    # 用[[i]]直接获取列表元素，[i]会返回子列表
    print(vec_inputs()[[i]])
  }
})

方法二：使用reactiveValues()构建可修改的响应式列表 #

reactiveValues允许直接修改内部值，适合需要主动更新列表的场景：

# 初始化带列表属性的响应式对象
vec_inputs <- reactiveValues(list = list())

# 监听输入变化，实时更新列表
observe({
  vec_inputs$list <- list(input$widget1, input$widget2)
})

# 遍历打印列表元素
observe({
  for (i in seq_along(vec_inputs$list)) {
    print(vec_inputs$list[[i]])
  }
})

关键注意点 #

• 原代码中for (i in length(vec_inputs$list))的写法错误，只会遍历最后一个索引，需改用seq_along(vec_inputs$list)或1:length(vec_inputs$list)
• 访问列表单个元素时，优先用[[i]]而非[i]，前者返回元素本身，后者返回包含该元素的子列表

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