在shiny中的infoboxes中显示摘要统计信息

library(shiny)

# 定义UI部分
ui <- fluidPage(
  titlePanel("摘要统计信息示例"),
  sidebarLayout(
    sidebarPanel(
      # 可以在这里添加其他输入控件，用于筛选数据
    ),
    mainPanel(
      infoBox("总数", textOutput("total")),
      infoBox("平均值", textOutput("mean")),
      infoBox("中位数", textOutput("median")),
      infoBox("最小值", textOutput("min")),
      infoBox("最大值", textOutput("max"))
    )
  )
)

# 定义server部分
server <- function(input, output) {
  # 计算摘要统计信息
  data <- c(1, 2, 3, 4, 5)  # 这里使用一个简单的示例数据
  output$total <- renderText({ length(data) })
  output$mean <- renderText({ mean(data) })
  output$median <- renderText({ median(data) })
  output$min <- renderText({ min(data) })
  output$max <- renderText({ max(data) })
}

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