如何从闪亮的www目录下载数据目录

Question

我想向用户提供一个链接，以下载存储在我闪亮应用程序的 WWW 目录中的测试数据文件列表。我尝试了下面显示的东西。

library(shiny)

    # server.R
    server <- function(input, output) {

      output$downloadData <- downloadHandler(
        filename = 'data',
        content = function(fname) {
           testdata
        })

    }

    # ui.R
    ui <- shinyUI(fluidPage(
      titlePanel('Downloading Data'),
      sidebarLayout(
        sidebarPanel(
          downloadLink ('downloadData', 'Download')
        ),
        mainPanel()
      )
    )
    )

    shinyApp(ui = ui, server = server)

但是，它不起作用。怎么办。

Answer 1

主要问题是如何读取数据？你是怎么得到testdata的？

例如，如果您的www 中有data.csv

shinyServer(function(input, output) {
  testdata=read.csv2('www\\data.csv',header = F)

  output$downloadData <- downloadHandler(
    filename =function() { 'data.csv'},

    content = function(file){
      fname <- paste(file,"csv",sep=".")
      write.csv2(testdata,fname)
      file.rename(fname,file)
    }

   )

})

我只在浏览器中工作

您也可以尝试创建所有文件的 zip（无法测试 zip 在我的 R 上不起作用）

shinyServer(function(input, output) {
  wd=getwd()
  testdata=c("data.csv","data1.csv")
  testdata_full_path=path.expand(paste0(wd,"\\www\\",testdata))

  output$downloadData <- downloadHandler(
    filename = 'data.zip',
    content = function(fname) {
      tmpdir <- tempdir()
     lapply(testdata_full_path,function(i) file.copy(i,tmpdir))
      setwd(tmpdir)
      zip('data.zip',files= testdata)
      setwd(wd)
     unlink(tmpdir)

    },
    contentType = "application/zip"
  )



})