如何在RStudio中查看当前关联Git仓库的HTTP地址

你可以根据自己的环境选下面任意一种方法，执行后就能直接拿到当前项目关联的仓库HTTP地址，直接区分是GitLab还是GitHub源：

• 零依赖基础方法
  确保你已经在RStudio里打开了目标项目，直接在控制台执行下面的命令，调用本地git能力输出远程配置：
  system("git remote -v", intern = TRUE)
  返回结果里标注为origin的条目就是当前项目默认关联的远程仓库，直接看地址段即可：包含gitlab.com就是关联GitLab，包含github.com就是关联GitHub，输出格式就是你需要的完整HTTP链接。

  注意：执行前请确认RStudio当前工作路径是项目根目录，否则会提示找不到git仓库。

• 用常用R包快速查看
  如果你日常做R包/项目开发装了usethis包，可以直接执行封装好的函数，输出格式更规整，不需要自己解析命令行返回结果：
  usethis::git_remotes()
  返回结果中origin对应的值就是默认关联的仓库地址。

• 自动识别仓库归属的代码片段
  如果你需要直接在脚本里判断当前关联的平台，可以用RStudio默认集成的gert包（不需要额外安装，只要RStudio的Git功能正常就能用）执行下面的代码，直接打印地址并自动判断平台：

# 获取所有远程仓库配置
remote_list <- gert::git_remote_list()
# 提取默认origin仓库的地址
origin_url <- remote_list$url[remote_list$name == "origin"]
# 输出完整地址
print(origin_url)
# 自动判断平台
if (grepl("github.com", origin_url, fixed = TRUE)) {
  message("当前项目默认关联GitHub仓库")
} else if (grepl("gitlab.com", origin_url, fixed = TRUE)) {
  message("当前项目默认关联GitLab仓库")
} else {
  message("当前项目关联其他Git平台仓库")
}

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