下载 zip 文件并在 Shiny App 中提取特定文件

Question

我有一个 RShiny 应用程序，我使用 aws.s3 库从 s3 存储桶中获取一个 zip 文件。我在这个 zip 存档中有一个特定的文件，用户将在单击 downloadButton 时下载该文件。

下面是我的服务器部分的sn-p代码

  rvalues <- reactiveValues(r = file())

  observe({
    rvalues$r <- tempfile(fileext = paste0(".", tools::file_ext("MyArchive.zip")))
    r <- save_object(bucket = MyBucket, 
                     object = "MyArchive.zip", 
                     file = rvalues$r, 
                     key = accesskey, 
                     secret = secretKey, 
                     region = region)
  })
 
  output$download <- downloadHandler(
    filename = function() {
      "Sample.json"
    },
    content = function(file) {
      unzip(rvalues$r,"Sample.json")
    }
  )

我正在创建一个临时文件并将 s3 中的 zip 文件保存到该临时文件中。从这个临时文件中，我解压缩我的特定文件并将其传递给下载处理程序函数。出于某种原因，这不起作用。非常感谢任何帮助/指导！

Answer 1

我会尝试以下代码（我没有尝试过，因为您没有提供可重现的示例）：

  output$download <- downloadHandler(
    filename = function() {
      "Sample.json"
    },
    content = function(file) {
      filepath <- unzip(rvalues$r,"Sample.json")
      file.copy(filepath, file)
    }
  )