使用R shiny对多列求和的求和问题

library(shiny)

# UI界面
ui <- fluidPage(
  titlePanel("多列求和"),
  sidebarLayout(
    sidebarPanel(
      selectInput("columns", "选择要求和的列", choices = colnames(data), multiple = TRUE)
    ),
    mainPanel(
      tableOutput("table")
    )
  )
)

# 服务器端逻辑
server <- function(input, output) {
  # 读取数据
  data <- read.csv("data.csv")
  
  # 监听用户输入的列，并进行求和操作
  observeEvent(input$columns, {
    selected_columns <- input$columns
    summed_data <- data[, selected_columns, drop = FALSE]
    summed_result <- apply(summed_data, 2, sum)
    output$table <- renderTable(summed_result)
  })
}

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