如何使用R加载Google Drive中公开的.rds文件至变量？

下面提供两种可行的实现方法：

方法1：使用googledrive包（推荐，适配Google Drive生态） #

1. 安装并加载googledrive包：

install.packages("googledrive")
library(googledrive)

2. 提取文件ID：从你的链接中截取d/与/view之间的字符串，即1nWGXS0TBK-WrtKmAujuDLXA2xSSIl7fy
3. 下载并读取文件到目标变量：

# 获取Google Drive文件对象
drive_file <- drive_get(id = "1nWGXS0TBK-WrtKmAujuDLXA2xSSIl7fy")
# 下载并读取.rds文件
my_data <- drive_read(drive_file, read_func = readRDS)

方法2：基础R实现（无需额外安装包） #

1. 构造直接下载链接：将原链接的/view?usp=share_link替换为/uc?export=download，最终链接为：https://drive.google.com/uc?export=download&id=1nWGXS0TBK-WrtKmAujuDLXA2xSSIl7fy
2. 用基础函数下载并读取：

# 定义下载链接
url <- "https://drive.google.com/uc?export=download&id=1nWGXS0TBK-WrtKmAujuDLXA2xSSIl7fy"
# 创建临时文件存储下载内容
temp_file <- tempfile(fileext = ".rds")
# 下载文件（mode="wb"确保二进制文件下载完整）
download.file(url, temp_file, mode = "wb")
# 读取文件到变量
my_data <- readRDS(temp_file)
# 可选：清理临时文件
unlink(temp_file)

注意：若文件较大，在Windows系统中可能需要给download.file添加method="libcurl"参数以保证下载成功。

内容的提问来源于stack exchange，提问作者user2110417