如何在输出表格之前在shiny中编辑表格？

library(shiny)
library(DT)

ui <- fluidPage(
  titlePanel("Editable Table in Shiny"),
  sidebarLayout(
    sidebarPanel(
      actionButton("addRow", "Add Row"),
      actionButton("removeRow", "Remove Row")
    ),
    mainPanel(
      DT::dataTableOutput("table")
    )
  )
)

server <- function(input, output, session) {
  # 创建一个可反应的数据框
  table_data <- reactiveValues(data = data.frame(
    Column1 = character(),
    Column2 = numeric()
  ))
  
  # 添加行的函数
  add_row <- function() {
    new_row <- data.frame(
      Column1 = "",
      Column2 = 0
    )
    table_data$data <- rbind(table_data$data, new_row)
  }
  
  # 删除行的函数
  remove_row <- function() {
    if (nrow(table_data$data) > 0) {
      table_data$data <- table_data$data[-nrow(table_data$data), ]
    }
  }
  
  # 观察按钮动作
  observeEvent(input$addRow, {
    add_row()
  })
  
  observeEvent(input$removeRow, {
    remove_row()
  })
  
  # 渲染表格
  output$table <- DT::renderDT({
    DT::datatable(
      table_data$data,
      editable = TRUE, # 允许编辑
      rownames = FALSE
    )
  })
}

shinyApp(ui, server)