在Shiny中下载过滤的tableOutput

# 安装和加载必要的包
install.packages("shiny")
library(shiny)

# 定义示例数据
data <- data.frame(
  Name = c("John", "Jane", "Mike", "Emily"),
  Age = c(25, 30, 35, 40),
  Gender = c("Male", "Female", "Male", "Female")
)

# 创建Shiny应用
ui <- fluidPage(
  sidebarLayout(
    sidebarPanel(
      # 添加过滤条件输入
      selectInput("genderInput", "选择性别：", choices = c("All", "Male", "Female"))
    ),
    mainPanel(
      # 添加tableOutput元素用于显示表格
      tableOutput("filteredTable"),
      # 添加downloadButton元素用于下载过滤后的表格
      downloadButton("downloadTable", "下载过滤的表格")
    )
  )
)

server <- function(input, output) {
  # 过滤数据
  filteredData <- reactive({
    if (input$genderInput == "All") {
      data
    } else {
      subset(data, Gender == input$genderInput)
    }
  })
  
  # 显示过滤后的表格
  output$filteredTable <- renderTable({
    filteredData()
  })
  
  # 下载过滤后的表格
  output$downloadTable <- downloadHandler(
    filename = function() {
      paste("filtered_table", Sys.Date(), ".csv", sep = "")
    },
    content = function(file) {
      write.csv(filteredData(), file, row.names = FALSE)
    }
  )
}

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