如何在shiny中从编辑好的数据表中提取数据

# 导入必要的包
library(shiny)

# 定义UI部分
ui <- fluidPage(
  # 展示数据表
  dataTableOutput("table")
)

# 定义Server部分
server <- function(input, output) {
  # 监听数据表的变化
  observeEvent(input$table_cell_edit, {
    # 获取编辑后的数据表
    edited_table <- input$table_cell_edit$data
    
    # 进行数据处理，这里仅打印提取到的数据
    print(edited_table)
  })
  
  # 生成示例数据表
  output$table <- renderDataTable({
    data <- data.frame(
      Name = c("Alice", "Bob", "Charlie"),
      Age = c(25, 30, 35),
      stringsAsFactors = FALSE
    )
    
    # 返回数据表
    data
  }, editable = TRUE)
}

# 运行shiny应用程序
shinyApp(ui, server)