Загрузите .rds с диска Google, используя download.file()

У меня все еще возникают проблемы с получением большого файла (.rds) с диска Google в R. Цель состоит в том, чтобы извлечь файл rds с диска для использования в Rshiny.app.

Если я использую

library(googledrive)
temp <- tempfile(fileext = ".rds")
dl <- drive_download(
  as_id("XXXXXXXXX"), path = temp, overwrite = TRUE)
myObj<-readRDS(file = dl$local_path)

Работает нормально, потому что скачивает файл по ID в tempdir. Но тогда для tidyverse (почти) каждый раз требуется авторизация токена.

Существуют и другие варианты использования download.file(), как в R How чтобы прочитать файл с диска Google с помощью R, однако я столкнулся с проблемой, что ссылка на общий доступ / загрузку приводит к подсказке, уведомляющей пользователей о сканировании на вирусы.

Предупреждение о загрузке с Google Диска

Я пробовал прямые ссылки для скачивания, изменение href, общую ссылку, но безуспешно. Любые идеи, как я могу обойти это, используя ссылку «Поделиться/скачать» и download.file()?


person Michael Caponegro    schedule 05.05.2020    source источник