使用编辑过的表格中的值在Shiny中进行计算

library(shiny)

# UI部分
ui <- fluidPage(
  titlePanel("使用编辑过的表格中的值进行计算"),
  sidebarLayout(
    sidebarPanel(
      # 在这里添加其他输入控件，如文本框、下拉框等
    ),
    mainPanel(
      dataTableOutput("table")
    )
  )
)

# Server部分
server <- function(input, output) {
  # 创建一个空的数据框用于存储编辑后的表格数据
  editedTable <- reactiveVal(data.frame())

  # 渲染表格
  output$table <- renderDataTable({
    editedTable()
  }, editable = TRUE)

  # 监视表格的编辑事件
  observeEvent(input$table_cell_edit, {
    info <- input$table_cell_edit
    row <- info$row
    col <- info$col
    value <- info$value

    # 更新编辑后的表格数据
    editedTable()[row, col] <- value

    # 进行计算逻辑，这里以计算表格中所有值的和为例
    result <- sum(as.numeric(editedTable()))

    # 将计算结果返回给UI部分
    output$result <- renderText({
      paste("计算结果：", result)
    })
  })
}

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