R 闪亮的fileInput不保留文件名

我正在用Shiny编写一个程序，用户上传一个文件并保存到指定的文件夹。执行此操作的方法取自

---

执行此操作时，我发现文件在保存到指定文件夹时，其文件名已被剥离。读取文件夹中文件的程序要求文件名保持不变。如何完成此操作？

将file.copy行更改为

file.copy(input$upload$datapath, paste0("your_folder/", input$upload$name))

---

这很有效：在本地重命名文件，然后通过forloop上传它们，然后删除本地文件。下面是一些对我有用的代码：

observe({
  if(!is.null(input$file_support)){
    browser()
    files = file.rename(input$file_support$datapath, paste0(input$file_support$name))
    files = paste0(input$file_support$name)
    n_files = length(files)
    for(i in 1:n_files){
      drop_upload(files[i], dest = "drop_test")
    }
  file.remove(files)
  }
  })

})

---

你能举个例子吗？原始名称是什么，删除的名称是什么？它实际上是任何名称，它将被删除为“0”。是否可以在dropbox上指定一个文件，如使用

drop\u upload

，或者它只能在您的计算机上复制文件？

observe({
  if(!is.null(input$file_support)){
    browser()
    files = file.rename(input$file_support$datapath, paste0(input$file_support$name))
    files = paste0(input$file_support$name)
    n_files = length(files)
    for(i in 1:n_files){
      drop_upload(files[i], dest = "drop_test")
    }
  file.remove(files)
  }
  })

})