R - Загрузка файлов из Shiny в Googledrive

Question

Я пытаюсь загрузить выбранные пользователем файлы из блестящего приложения (используя блестящие файлы) на диск Google. Я работаю над слегка измененной версией того, что нашел здесь ( заставил пользователя приложения Rshiny загрузить изображение на dropbox / блестящий сервер / google drive ). Исходная версия приводит к ошибке при запуске. Моя версия не намного лучше, так как сам файл не найден. Что-то не так в моем коде или что-то не работает правильно в библиотеке googledrive? Вот мой код:

library(shiny)
library(shinyFiles)
library(googledrive)

ui <- fluidPage(
  shinyFilesButton("file", "File select", "Please select a file", multiple = TRUE),

  verbatimTextOutput ("txt_file"),
  actionButton("go","Upload to GoogleDrive")
)


server <- function(input,output,session){

  volumes = getVolumes()
  observe({  
    volumes <- c(Home = fs::path_home(), "R Installation" = R.home(), getVolumes()())
    shinyFileChoose(input, "file", roots = volumes, session = session)
    if(!is.null(input$file)){
      # browser()
      file_selected<-parseFilePaths(volumes, input$file)
      output$txt_file <- renderPrint(file_selected)


    }
  })

  observeEvent(input$go, {
    file_selected <- parseFilePaths(volumes, input$file)
    drive_upload(as.character(file_selected$datapath) 
                 )
    session$sendCustomMessage(type = 'testmessage',
                              message = 'Thank you for clicking')
  })

}
shinyApp(ui = ui, server = server)