download - 使用 download.file() 从谷歌驱动器下载 .rds

Question

我仍然无法将谷歌驱动器中的大文件（.rds）导入 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 to read a file from google drive using R，但是我遇到的问题是共享/下载链接会导致提示，通知用户进行病毒扫描。

Google 云端硬盘下载警告

我试过直接下载链接，更改href，共享链接，但没有成功。有什么想法可以解决这个问题，使用共享/下载链接和download.file()？