如何使用shiny将编辑的值保留在输出数据表中

library(shiny)
library(DT)

ui <- fluidPage(
  titlePanel("编辑值保留在输出数据表中"),
  sidebarLayout(
    sidebarPanel(
      # 添加输入框
      textInput("input1", "值1", ""),
      textInput("input2", "值2", "")
    ),
    mainPanel(
      # 输出数据表格
      DT::dataTableOutput("table")
    )
  )
)

server <- function(input, output) {
  # 创建响应式值对象
  values <- reactiveValues(data = NULL)
  
  # 监听输入框的变化
  observeEvent(input$input1, {
    values$data[1] <- input$input1
  })
  
  observeEvent(input$input2, {
    values$data[2] <- input$input2
  })
  
  # 渲染数据表格
  output$table <- DT::renderDataTable({
    data <- data.frame(值1 = values$data[1], 值2 = values$data[2])
    datatable(data)
  })
}

shinyApp(ui = ui, server = server)