Shiny中如何将多个变量的计算结果赋值给另一变量并复用？

你遇到的赋值不生效问题是因为Shiny的input属于响应式变量，不能在响应式上下文外直接读取计算，你可以通过响应式表达式（reactive） 定义可全局复用的y值，后续所有位置调用都不需要重复写计算逻辑：

基础实现代码 #

修改后的server端代码如下：

shinyServer(function(input, output,session) {
  # 定义响应式变量y，所有输入更新时会自动重新计算
  y <- reactive({
    (input$y1 + input$y2 + input$y3 + input$y4)/4
  })
  
  # 渲染文本时直接调用y()即可获取当前均值
  output$y <- renderText({
    y()
  })
  
  # 其他业务逻辑需要用到y时统一调用y()即可，示例：计算方差
  output$y_variance <- renderText({
    yi_vec <- c(input$y1, input$y2, input$y3, input$y4)
    var(yi_vec)
  })
})

注意：调用响应式变量时必须加后缀括号y()，否则返回的是函数对象而非计算结果。

适配多yi场景的优化方案 #

如果后续yi数量超过20个，可以批量提取input中所有y开头的数值，不需要逐个写输入框名称，新增yi输入框时计算逻辑无需修改：

y <- reactive({
  # 自动匹配所有名称为y+数字格式的输入项，计算均值
  all_y_input <- grep("^y\\d+$", names(input), value = TRUE)
  yi_vec <- sapply(all_y_input, function(item) input[[item]])
  mean(yi_vec)
})

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