在R Shiny中，如何对数据帧的指定列求和并将结果输出到表中？

install.packages("shiny")
install.packages("DT")

library(shiny)
library(DT)

# 定义UI界面
ui <- fluidPage(
  titlePanel("数据帧列求和示例"),
  sidebarLayout(
    sidebarPanel(
      selectInput("col", "选择要求和的列:", choices = colnames(mtcars))
    ),
    mainPanel(
      DT::dataTableOutput("resultTable")
    )
  )
)

# 定义服务器端逻辑
server <- function(input, output) {
  
  # 根据用户选择的列求和并返回结果
  sumResult <- reactive({
    column <- input$col
    if (!is.null(column)) {
      sum(mtcars[[column]])
    }
  })
  
  # 将结果输出到表格中
  output$resultTable <- DT::renderDataTable({
    if (!is.null(input$col)) {
      datatable(
        data.frame(
          列名 = input$col,
          求和结果 = sumResult()
        )
      )
    }
  })
}

# 启动Shiny应用
shinyApp(ui = ui, server = server)