R Shiny使用modules时从列表选取输入出现reactivity缺失问题求助

核心问题原因 #

调用线性回归模块时直接对响应式数据进行了解包求值，导致模块拿到的是静态值，无法监听数据的更新，自然不会刷新变量选择选项。

修复步骤 #

1. 修改主应用Server的模块调用逻辑 #

不要直接传入解包后的数据，而是传入未求值的reactive表达式：

# 原错误写法
# Linear.Regression.Server("dummy", data.tibble = dummy.list()[[input$dummy.input.select]])
# 修正后写法
Linear.Regression.Server("dummy", data.tibble = reactive({
  dummy.list()[[input$dummy.input.select]]
}))

2. 修改回归模块Server的内部调用逻辑 #

因为现在传入模块的data.tibble是reactive对象，所有用到它的地方都需要加()来读取当前值：

Linear.Regression.Server <- function(id, data.tibble){
  moduleServer(id, function(input, output, session){
    ns <- session$ns
    
    output$Select.Regression.Y.Input <- renderUI({
      selectInput(inputId = ns("Regression.Y.Input"),
                  label = "Select Regression Dependent Variable",
                  choices = names(data.tibble()), # 加()读取reactive值
      )
    })
    
    output$Select.Regression.X.Input <- renderUI({
      selectInput(inputId = ns("Regression.X.Input"),
                  label = "Select Regression Independent Variables",
                  choices= names(data.tibble()), # 加()读取reactive值
                  multiple=TRUE
      )
    })
    
    linear.model <- reactiveVal()
    observeEvent(eventExpr = input$ClickforRegression, {
      # 加()读取reactive值
      linear.model(lm(reformulate(input$Regression.X.Input, input$Regression.Y.Input), data = data.tibble()))
    })
    
    output$Linear.Model.Output.Summary <- renderPrint(summary(linear.model()))
  })
}

附带代码注释问题解答 #

• 为什么linear.model需要用reactiveVal定义：reactiveVal是Shiny提供的响应式值容器，它的值发生变化时，所有依赖它的响应式上下文（比如renderPrint）会自动触发更新，普通变量没有这个特性。
• 为什么给linear.model赋值用括号而不是赋值运算符：reactiveVal的读写规则为：val()读取当前值，val(new_value)写入新值，和val() <- new_value写法完全等价，只是语法习惯不同。

内容的提问来源于stack exchange，提问作者K.RAC