如何修改R语言Shiny Dashboard代码实现点击计算按钮输出动态输入结果？

以下是修改后的完整代码，实现仅在点击Calculate按钮时才输出输入结果：

library(shiny)

ui <- fluidPage(
  titlePanel("Dynamic Inputs"),
  sidebarLayout(
    sidebarPanel(
      actionButton("addBtn", "Add Input"),
      uiOutput("dynamicInputs"),
      actionButton("calculate", "Calculate")
    ),
    mainPanel(
      verbatimTextOutput("result")
    )
  )
)

server <- function(input, output, session) {
  # Counter for the number of inputs
  counter <- reactiveVal(1)
  
  # 用于存储计算结果的响应式变量
  resultVal <- reactiveVal("")
  
  # Generate dynamic inputs based on the counter
  output$dynamicInputs <- renderUI({
    inputList <- lapply(1:counter(), function(i) {
      textInput(inputId = paste0("input", i), label = paste("Input", i), value = "")
    })
    do.call(tagList, inputList)
  })
  
  # Increment the counter when the "Add Input" button is clicked
  observeEvent(input$addBtn, {
    counter(counter() + 1)
  })
  
  # 监听Calculate按钮点击，收集输入并更新结果
  observeEvent(input$calculate, {
    inputs <- lapply(1:counter(), function(i) {
      inputId <- paste0("input", i)
      input[[inputId]]
    })
    resultVal(paste("Inputs:", paste(inputs, collapse = ", ")))
  })
  
  # 输出存储的结果
  output$result <- renderPrint({
    resultVal()
  })
}

shinyApp(ui, server)

关键修改说明： #

1. 新增响应式变量resultVal：用来存储计算后的结果，只有当按钮点击时才更新它的值，避免实时响应输入变化。
2. 用observeEvent监听calculate按钮：把原来在renderPrint里的输入收集逻辑移到这里，只有点击按钮时才执行收集操作，并更新resultVal。
3. 修改output$result的渲染逻辑：现在renderPrint只依赖resultVal()，只有当resultVal被更新时才会重新输出内容，也就是仅在点击计算按钮时触发。

这样修改后，动态输入框的内容变化不会实时更新结果，只有点击Calculate按钮后，才会将当前所有输入的内容汇总显示出来。

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