从闪亮的应用程序上传多个文件到谷歌驱动器

Question

使用之前post 的建议，我能够弄清楚如何将单个文件从闪亮的应用程序上传到我的谷歌驱动器上的特定文件夹。这非常有效。不幸的是，当我尝试选择并上传多个文件时出现以下错误。任何帮助表示赞赏！ “ if (!file.exists(media)) { 中的警告： 条件的长度 > 1 并且只使用第一个元素 警告：rationalize_path_name 中的错误：is_string(name) 不是 TRUE [没有可用的堆栈跟踪]"

下面是最小可重复的示例

library(googledrive)

ui <- fluidPage(
  fileInput(inputId = "file", 
            label = "Choose file to upload",
            accept = NULL, 
            multiple = TRUE)
)

server <- function(input, output) {

  observeEvent(input$file, {
    drive_upload(media = input$file$datapath,
                 name = input$file$name,
                 path = "my_folder")
  })
}

shinyApp(ui, server)

Answer 1

要上传多个文件，您需要对每个 input$file$datapath、input$file$name 对进行迭代：

  observeEvent(input$file, {
    mapply( function(datapath, name){
        drive_upload(media = datapath,
                     name = name,
                     path = "my_folder")},
      input$file$datapath,
      input$file$name)
  })