R Shiny如何让observe仅在指定reactiveVal发生变化时触发

问题本质 #

Shiny的observe()会自动捕获代码块内所有调用过的响应式对象（input、reactiveVal、reactive表达式返回值等）作为触发依赖，只要其中任意一个值变化就会运行整个代码块。你在两个observe内同时调用了两个响应式变量，自然会出现多触发、互相覆盖的问题。

解决方案 #

1. 基础input场景实现指定触发 #

直接用observeEvent()明确指定唯一触发源即可，完全符合你要求的触发逻辑：

library(shiny)
shinyApp(
  fluidPage(
    textInput('i1', 'Input 1'),
    textInput('i2', 'Input 2'),
    textInput('out', 'Output (do not edit)')
  ),
  function(input, output, session) {
    # 仅input$i1变化时触发
    observeEvent(input$i1, {
      updateTextInput(session, 'out', value = input$i1)
    })
    # 仅input$i2变化时触发
    observeEvent(input$i2, {
      updateTextInput(session, 'out', value = input$i2)
    })
  }
)

2. reactiveVal场景实现指定触发 #

observeEvent完全支持监听reactiveVal的变化，你遇到的不触发问题大概率是调用时没加括号（reactiveVal需要加括号才能获取值，直接传函数本身不会触发监听），正确写法如下：
注意：监听reactiveVal时必须加括号调用，传入响应式值而非函数本身，否则不会触发监听

library(shiny)
shinyApp(
  fluidPage(
    textInput('i1', 'Make uppercase'),
    textInput('i2', 'Make lowercase'),
    textInput('out', 'Output (ideally not editable)')
  ),
  function(input, output, session) {
    i1 <- reactiveVal('')
    i2 <- reactiveVal('')
    observeEvent(input$i1, { i1(toupper(input$i1)) })
    observeEvent(input$i2, { i2(tolower(input$i2)) })
    # 仅i1变化时触发，和i2完全无关
    observeEvent(i1(), {
      updateTextInput(session, 'out', value = i1())
    })
    # 仅i2变化时触发，和i1完全无关
    observeEvent(i2(), {
      updateTextInput(session, 'out', value = i2())
    })
  }
)

如果你需要保留print逻辑但不想让它成为触发依赖，用isolate()包裹不需要作为触发源的响应式对象即可：

# 仅i1变化时触发，print的i2不会触发运行
observeEvent(i1(), {
  print(isolate(i2()))
  updateTextInput(session, 'out', value = i1())
})
# 仅i2变化时触发，print的i1不会触发运行
observeEvent(i2(), {
  print(isolate(i1()))
  updateTextInput(session, 'out', value = i2())
})

核心规则总结 #

• 需要明确指定触发源优先用observeEvent()，第一个参数就是监听的依赖列表
• 代码块内不需要作为触发依赖的响应式对象，统一用isolate()包裹即可避免多余触发

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