从www目录下载文件

Question

我有一个包含300个.csv文件的.zip文件夹。我想下载.zip文件夹。我尝试了以下代码

output$BreastSample <- downloadHandler( 
    filename <- "BreastCancer.zip",
    content <- function(file){
      file.copy("www/BreastCancer(301).zip", file)
    })
  outputOptions(output, "BreastSample", suspendWhenHidden=FALSE)

但是我收到以下错误

  

打开文件时出错：2   读错误：9