可编辑的renderTable和保存值-R闪亮

library(shiny)

ui <- fluidPage(
  titlePanel("可编辑的renderTable和保存值-R闪亮"),
  sidebarLayout(
    sidebarPanel(
      textInput("name", "姓名", ""),
      numericInput("age", "年龄", 0),
      actionButton("add", "添加")
    ),
    mainPanel(
      tableOutput("data")
    )
  )
)

server <- function(input, output) {
  # 创建一个响应式的值对象，用于保存表格数据
  values <- reactiveValues(data = data.frame(Name = character(), Age = numeric()))

  # 监听添加按钮的点击事件
  observeEvent(input$add, {
    # 获取输入的姓名和年龄
    name <- input$name
    age <- input$age
    
    # 将新的行添加到表格数据中
    new_row <- data.frame(Name = name, Age = age)
    values$data <- rbind(values$data, new_row)
    
    # 清空输入框
    updateTextInput(session, "name", value = "")
    updateNumericInput(session, "age", value = 0)
  })

  # 呈现可编辑的表格
  output$data <- renderTable({
    # 将表格数据转换为可编辑的输入框
    data <- values$data
    rows <- nrow(data)
    cols <- ncol(data)
    
    for (i in 1:rows) {
      for (j in 1:cols) {
        input_id <- paste0("cell_", i, "_", j)
        data[i, j] <- textInput(input_id, "", value = data[i, j])
      }
    }
    
    data
  })
}

shinyApp(ui, server)