使用OAuth令牌在R中访问Google Drive特定文件夹文件列表遇阻求助

看起来你在调用Google Drive API时用错了端点和参数，这才导致无法获取文件夹内的文件信息。我来帮你修正这个问题：

首先，先指出你当前代码的两个核心问题： #

• 错误使用Batch API端点：你用的https://www.googleapis.com/batch/drive/v3/files/folderId是批量处理API的端点，这个接口是用来同时发送多个API请求的，单个获取文件夹内容完全不需要用它。
• 缺少必要的过滤参数：要获取指定文件夹下的文件，你需要明确告诉API筛选条件，以及要返回哪些字段。

修正后的实现步骤和代码 #

下面是正确的R代码，我会一步步说明：

1. 使用文件列表API端点：https://www.googleapis.com/drive/v3/files，这是获取Drive文件列表的标准接口。
2. 添加查询参数：
   • q：用"'{folderId}' in parents"来筛选属于目标文件夹的所有文件（把{folderId}替换成你的实际文件夹ID）。
   • fields：指定返回的字段，比如files(id,name)，这样只返回文件ID和名称，避免返回冗余数据。
3. 确保Authorization头格式正确：必须带Bearer前缀，格式是Bearer {你的访问令牌}。

library(httr)

# 替换为你的实际文件夹ID和访问令牌
target_folder_id <- "your-real-folder-id-here"
drive_access_token <- new_access_token_drive

# 构造请求
drive_response <- GET(
  url = "https://www.googleapis.com/drive/v3/files",
  add_headers(Authorization = paste("Bearer", drive_access_token)),
  query = list(
    q = sprintf("'%s' in parents", target_folder_id),
    fields = "files(id,name)"
  )
)

# 处理响应
if (http_status(drive_response)$category == "Success") {
  folder_files <- content(drive_response, "parsed")
  # 打印文件夹内的文件ID和名称
  print("文件夹内的文件信息：")
  lapply(folder_files$files, function(file) {
    cat(sprintf("文件名称：%s，文件ID：%s\n", file$name, file$id))
  })
} else {
  # 打印错误信息便于排查
  cat("请求失败，错误详情：\n")
  print(content(drive_response, "text"))
}

额外排查建议 #

如果还是获取不到文件，你可以检查这几点：

• 权限范围：确保生成访问令牌时请求了drive.readonly或drive.file等合适的权限（如果是访问自己的文件夹，drive.readonly足够；如果是共享文件夹，可能需要额外权限）。
• 文件夹权限：确认你的Google账号有权限访问目标文件夹（比如是否是文件夹的所有者、编辑者或查看者）。
• 令牌有效性：检查访问令牌是否过期，可以通过调用https://www.googleapis.com/oauth2/v3/tokeninfo?access_token={你的令牌}来验证。

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