在Shiny中用downloadLink连接excel数据库

install.packages("shiny")
install.packages("readxl")

library(shiny)

ui <- fluidPage(
  # 添加一个下载链接
  downloadLink("downloadData", "下载Excel数据库")
)

server <- function(input, output) {
  # 生成要下载的Excel数据库
  output$downloadData <- downloadHandler(
    filename = function() {
      "database.xlsx"  # 下载的文件名
    },
    content = function(file) {
      # 在这里生成Excel数据库
      # 使用readxl包读取Excel文件
      data <- readxl::read_excel("path/to/database.xlsx")
      # 在这里对数据进行处理或操作
      # ...
      # 将处理后的数据写入Excel文件
      writexl::write_xlsx(data, file)
    }
  )
}

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