使用R从Github中的组织的所有存储库获取所有提交

org_name <- "your_organization_name"
access_token <- "your_github_access_token"

# 构建API请求URL
url <- paste0("https://api.github.com/orgs/", org_name, "/repos?per_page=100")
headers <- c(Authorization = paste0("token ", access_token))

# 发起GET请求获取存储库信息
response <- GET(url, add_headers(headers))

# 提取存储库信息
repo_info <- content(response, "parsed")

# 获取每个存储库的提交信息
commit_info <- lapply(repo_info, function(repo) {
  commits_url <- paste0(repo$commits_url, "?per_page=100")
  commits_url <- gsub("{/sha}", "", commits_url, fixed=TRUE)
  commits_response <- GET(commits_url, add_headers(headers))
  commits <- content(commits_response, "parsed")
  return(commits)
})

# 打印所有提交信息
print(commit_info)