Shiny模块输入数据反应性冻结问题求助

执行innerDemo()函数时，输入的Quantity字段值无法正确同步到显示结果中。预期显示的数据应完全同步Quantity的输入值，但操作一段时间后，显示数据不再随输入更新，疑似反应性失效。

已使用最新版本的R（4.2.2）和Shiny（1.7.4），所有依赖均已更新。采用《Mastering Shiny》中的最新moduleServer模块框架，但论坛相关问答多基于旧版callModule，对此存在困惑，请求排查原因。

问题出在server函数内的renderTable调用方式：

output$Ex <- renderTable(innerServer("Ex1")())

此处直接执行innerServer("Ex1")()，仅一次性获取了reactive对象的当前值，未建立有效的反应式依赖关系。Shiny的反应式系统需要追踪依赖变化，这种写法仅在应用启动时执行一次，后续输入变更无法触发重新计算，导致显示停滞。

library(shiny)

innerUI <- function(id) {
    tagList(
        numericInput(NS(id,"Qty"), label="Quantity:", value=0)
    )
}

innerServer <- function(id) {
    moduleServer(id, function(input, output, session) {
        data <- reactive({input$Qty})
        print(paste0("Data:Qty ", data()))
        return(data)
    })
}

innerDemo <- function() {
    ui <- fluidPage(
        innerUI("Ex1"),
        tableOutput("Ex")
    )
    server <- function(input, output, session) {
        # 保留reactive对象引用，不立即执行
        qty_reactive <- innerServer("Ex1")
        # 在renderTable中调用reactive对象，建立反应式依赖
        output$Ex <- renderTable(qty_reactive())
    }
  
    shinyApp(ui, server)
}

• 先将innerServer返回的reactive对象赋值给变量qty_reactive，避免立即执行导致丢失依赖追踪
• 在renderTable中调用qty_reactive()，让Shiny自动追踪该依赖，输入变化时自动重新渲染表格
• 这是moduleServer框架下的标准用法：模块返回的reactive对象需被订阅，而非一次性取值

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