使用之前 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)
答案 0 :(得分:3)
要上传多个文件,您需要对每个 PS> cmd /c call .\test.cmd "a ^ 2"; $LASTEXITCODE
["a ^^ 2"] # !! BROKEN
1 # OK
, input$file$datapath
对进行迭代:
input$file$name