如何在Shiny应用中实现基于用户输入的连续链式计算？

解决方法 #

在Shiny中可以通过reactive()响应式表达式定义可复用的中间计算值，这些值会自动跟随依赖的输入更新，调用时只需要在响应式变量名后加()即可获取当前计算结果，完全可以实现链式计算的逻辑。

优化后完整可运行代码 #

# UI
ui <- fluidPage(
  
  # 应用标题
  titlePanel("Doing algebra"),
  
  # 侧边栏数值输入框
  sidebarLayout(
    sidebarPanel(
      numericInput("inputa",
                   "输入a的值:",
                   min = 0,
                   max = 100,
                   value = 20,
                   step=1)
    ),
    
    # 展示连续计算结果
    mainPanel(
      verbatimTextOutput("output1"),
      h4("+2"),
      verbatimTextOutput("output2"),
      h4("-3"),
      verbatimTextOutput("output3"),
      h4("*4"),
      verbatimTextOutput("output4"),
      h4("/5"),
      verbatimTextOutput("output5")
    )
  )
)

# 服务端逻辑
server <- function(input, output) {  
  # 定义链式响应式中间变量
  a <- reactive({ input$inputa })
  b <- reactive({ a() + 2 })
  c <- reactive({ b() - 3 })
  d <- reactive({ c() * 4 })
  e <- reactive({ d() / 5 })
  
  # 直接调用响应式变量输出结果
  output$output1 <- renderText({ a() })
  output$output2 <- renderText({ b() })
  output$output3 <- renderText({ c() })
  output$output4 <- renderText({ d() })
  output$output5 <- renderText({ e() })
}

shinyApp(ui, server)

核心说明 #

• reactive()定义的变量会自动监听它依赖的其他响应式对象/输入值，只要上游值变化，下游会自动更新，不需要手动编写触发逻辑
• 调用响应式变量必须加()，本质上它是一个返回计算结果的函数，这也是之前直接调用中间变量报错的核心原因
• 这种写法没有重复计算，每个中间值只会在依赖变化时计算一次，所有复用它的地方都读取同一个缓存结果，性能和可读性都远优于嵌套写法

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