Shiny带多响应式单元格的表格无法更新问题求助

原代码存在几个关键问题导致表格无法响应输入变更：

• renderDT中使用isolate()隔离了数据的响应性，表格无法感知到数据变化
• 单独定义的reactive()块没有被任何输出依赖，永远不会执行，且bind_rows逻辑会不断追加行而非更新现有数据
• 输入框未设置初始值，与原始表格数据不匹配

以下是修正后的完整代码：

library(shiny)
library(tidyverse)
library(DT)

df <- dplyr::tibble(Cancer_Stage = c("Localized",
                                     "Regional",
                                     "Distant"), 
                    Costs = c("95",
                              "24",
                              "25"))

ui <- fluidPage(
  titlePanel("Cancer Stage and Costs"),
  sidebarLayout(
    sidebarPanel(
      # 设置输入框初始值，与原始数据对应
      shiny::textInput(inputId = "Cost_1", label = "Cost Localized", value = df$Costs[1]),
      shiny::textInput(inputId = "Cost_2", label = "Cost Regional", value = df$Costs[2]),
      shiny::textInput(inputId = "Cost_3", label = "Cost Distant", value = df$Costs[3])
    ),
    mainPanel(
      DT::DTOutput(outputId = "table")
    )
  )
)

server <- function(input, output, session) {
  # 用reactive实时生成更新后的数据集
  updated_df <- reactive({
    df %>%
      mutate(Costs = c(input$Cost_1, input$Cost_2, input$Cost_3)) %>%
      # 可选：转为数值类型，便于后续计算或格式化
      mutate(Costs = as.numeric(Costs))
  })
  
  # 直接依赖响应式数据，自动响应输入变化
  output$table <- DT::renderDT({
    updated_df()
  })
}

shinyApp(ui, server)

关键改动说明：

• 移除isolate()，让renderDT直接依赖响应式数据，确保输入变化时表格自动更新
• 用reactive()直接生成更新后的数据集，通过mutate替换原有行的Costs值，避免追加冗余行
• 给输入框设置value参数，初始值与原始表格数据保持一致，提升用户体验
• 可选将Costs转为数值类型，适配后续计算或格式化需求

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