在R Shiny中下载压缩的PNG

install.packages("shiny")
install.packages("png")

library(shiny)

ui <- fluidPage(
  titlePanel("下载压缩的PNG"),
  sidebarLayout(
    sidebarPanel(),
    mainPanel(
      downloadButton("download", "下载PNG")
    )
  )
)

server <- function(input, output) {
  output$download <- downloadHandler(
    filename = function() {
      "compressed_image.png"
    },
    content = function(file) {
      # 在这里编写生成和压缩PNG的代码
      # 生成的PNG图片将保存在指定的`file`中
    }
  )
}

shinyApp(ui = ui, server = server)

library(shiny)
library(png)

ui <- fluidPage(
  titlePanel("下载压缩的PNG"),
  sidebarLayout(
    sidebarPanel(),
    mainPanel(
      downloadButton("download", "下载PNG")
    )
  )
)

server <- function(input, output) {
  output$download <- downloadHandler(
    filename = function() {
      "compressed_image.png"
    },
    content = function(file) {
      # 生成PNG文件
      png(file)

      # 在这里编写生成PNG的代码
      # 例如，使用plot函数生成一个简单的图形
      plot(1:10, type = "l", col = "blue")

      dev.off() # 关闭PNG绘图设备

      # 压缩生成的PNG文件
      # 例如，使用其他图像处理库或函数来压缩PNG
      # 这里的代码仅用于示例目的，实际压缩方法可能不同
      compressed_file <- file  # 用于示例目的，实际应修改为压缩后的文件

      # 将压缩后的PNG文件复制到指定的`file`中
      file.copy(compressed_file, file)
    }
  )
}

shinyApp(ui = ui, server = server)