如何从私有GitLab加载原始文件到R？代码执行异常求助

1. 核心变量名错误 #

你的代码里存在变量名不一致的问题：请求结果存在answer变量里，但判断状态码和报错时用的是resposta（拼写错误），这会导致逻辑完全失效——即使请求成功，也不会执行文件保存；如果请求失败（比如权限不足返回HTML错误页），错误提示也不会触发，最终把GitLab返回的HTML页面存成了csv文件。

2. 修正后的代码 #

library(httr)

# 替换为你的GitLab文件地址和私有token
url <- "https://gitlab......../-/raw/main/data.csv"
private_token <- "........"

# 推荐用请求头传递token，比URL参数更安全
answer <- GET(url, add_headers("PRIVATE-TOKEN" = private_token))

# 统一使用正确的变量名answer
if (status_code(answer) == 200) {
  writeBin(content(answer, "raw"), "data.csv")
  message("文件保存成功")
} else {
  message("请求错误，状态码: ", status_code(answer))
  # 可选：打印返回内容排查具体错误
  # cat(content(answer, "text"))
}

3. 额外排查点 #

• 确认你的私有token拥有该GitLab项目的读取权限（需包含read_repository权限）
• 如果GitLab开启了双因素认证，需要使用**个人访问令牌（PAT）**而非普通private token
• 检查URL路径正确性：必须是/-/raw/开头的原始文件路径，而非项目网页路径

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