R/Shiny中响应式对象值变化时能否触发对应事件？

R/Shiny 原生支持自定义响应式对象值变更时触发绑定事件，示例代码无法正常触发是写法错误，和响应式机制本身的能力无关。

• 内置的input是特殊的响应式值集合对象，直接写input$val1时，Shiny会自动建立值变更的依赖追踪，所以observeEvent可以正常捕获值变化。
• 用reactive()自定义生成的是响应式函数，不是直接可读取的响应式变量。直接把函数名reactiveSum传给observeEvent时，传入的是固定不变的函数引用，这个引用在应用整个运行周期都不会发生变化，所以监听逻辑只会在初始化阶段执行一次，后续内部值更新根本不会被捕获。

监听自定义响应式对象时，必须给响应式函数加括号调用、拿到它的返回值，才能让observeEvent建立正确的依赖关系，修正后的代码如下：

reactiveSum <- reactive({
  as.integer(input$val1) + as.integer(input$val2) + as.integer(input$val3)
})

# 正确写法：调用reactiveSum()建立响应式依赖
observeEvent(reactiveSum(), {
  cat("reactiveSum值变更时触发，当前计算结果为：", reactiveSum(), "\n")
})

如果不需要应用初始化时自动触发一次，仅在后续用户操作导致值变化时执行逻辑，可以添加ignoreInit = TRUE参数：

observeEvent(reactiveSum(), {
  cat("仅在后续值变更时触发，初始化阶段不执行逻辑\n")
}, ignoreInit = TRUE)

如果需要同时监听多个响应式源，任意一个源发生变化都触发事件，可以把所有要监听的响应式对象包在list()里传给observeEvent：

observeEvent(list(input$val1, input$val2, reactiveSum()), {
  cat("列表内任意一个响应式对象值变化，都会触发这段逻辑\n")
})

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