Shiny中updateSliderInput更新非可见标签页滑块值延迟问题

R语言Shiny框架存在一个懒加载机制导致的异常：对当前不可见标签页内的sliderInput调用updateSliderInput()方法时，滑块组件不会立即完成值更新，必须等所在标签页切换为可见状态后才会实际生效。其余类型输入组件无此问题，当业务逻辑依赖该滑块取值时，会直接触发计算错误。
复现逻辑如下：

• 测试应用包含2个标签页，每个标签页内各放置1个sliderInput组件
• 配置文本输出组件，实时展示tab2标签页内滑块的当前取值
• 逻辑设定：tab1内滑块值变动时，自动调用updateSliderInput()将tab2内滑块值同步为tab1滑块的值
• 预期效果：拖动tab1滑块时，输出内容同步变动
• 实际表现：只有用户手动切换到tab2标签页查看过对应滑块后，输出内容才会完成更新

可复现问题的示例代码：

library(shiny)
runApp(shinyApp(
  ui = 
    navbarPage(
      "title",
      tabPanel(
        "tab1",
        sliderInput("num1", "Set slider in tab2 to:", 1, 10, 1),
        textOutput("foo")
      ),
      tabPanel(
        "tab2",
        sliderInput("num2", "num", 1, 10, 1)
      )
    )
  ,
  server = function(input, output, session) {
    output$foo <- renderText(sprintf("Number in tab2 is: %s", input$num2))
    observe({
      updateSliderInput(session, "num2", value = input$num1)
    })
  }
))

Shiny对非激活状态标签页内的组件默认开启懒加载优化：隐藏状态的tabPanel内的sliderInput不会完成DOM初始化绑定（该组件初始化依赖DOM尺寸计算，隐藏状态下DOM尺寸为0无法完成初始化），updateSliderInput发送的更新指令会被暂存，直到组件被渲染到可见区域才会执行。其余输入组件初始化逻辑不依赖DOM尺寸计算，隐藏状态下也能完成绑定，因此不会出现同类问题。

两种方案二选一即可：

方案1：预初始化所有标签页的滑块组件 #

无需引入第三方包，直接在UI中插入一段JS即可：页面加载完成后短暂激活所有标签页，让所有sliderInput完成初始化后再切回默认标签页，后续update指令可正常生效，用户无感知，也不影响原有标签页交互逻辑。
修改后的UI代码示例：

ui = navbarPage(
  "title",
  # 新增下方JS代码即可
  tags$script(HTML("
    $(document).on('shiny:connected', function() {
      let defaultTab = $('.tab-pane.active').attr('id');
      $('.tab-pane').addClass('active');
      setTimeout(function(){
        $('.tab-pane').not('#' + defaultTab).removeClass('active');
      }, 100)
    })
  ")),
  tabPanel(
    "tab1",
    sliderInput("num1", "Set slider in tab2 to:", 1, 10, 1),
    textOutput("foo")
  ),
  tabPanel(
    "tab2",
    sliderInput("num2", "num", 1, 10, 1)
  )
)

方案2：用响应式值绕开对未渲染输入组件的依赖 #

不需要写前端代码，单独维护一个响应式值存储滑块的目标值，所有业务逻辑、输出依赖都读取这个响应式值，调用updateSliderInput时同步更新该值即可，完全不依赖隐藏状态下input的取值。
注意：后续所有依赖该滑块值的逻辑都需要读取这个自定义响应式值，不能直接调用input$num2，否则问题依旧存在。
修改后的server代码示例：

server = function(input, output, session) {
  # 初始化响应式值，默认值和滑块初始值保持一致
  num2_val <- reactiveVal(1)
  output$foo <- renderText(sprintf("Number in tab2 is: %s", num2_val()))
  observe({
    new_val <- input$num1
    updateSliderInput(session, "num2", value = new_val)
    # 同步更新响应式值，不依赖未渲染的input$num2
    num2_val(new_val)
  })
}

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