contributors.R

In hadley/r4ds: R for data science.

library(tidyverse)
contribs_all_json <- gh::gh("/repos/:owner/:repo/contributors",
  owner = "hadley",
  repo = "r4ds",
  .limit = Inf
)
contribs_all <- tibble(
  login = contribs_all_json %>% map_chr("login"),
  n = contribs_all_json %>% map_int("contributions")
)

contribs_old <- read_csv("contributors.csv", col_types = list())
contribs_new <- contribs_all %>% anti_join(contribs_old)

# Get info for new contributors
needed_json <- map(
  contribs_new$login,
  ~ gh::gh("/users/:username", username = .x)
)
info_new <- tibble(
  login = map_chr(needed_json, "login", .default = NA),
  name = map_chr(needed_json, "name", .default = NA),
  blog = map_chr(needed_json, "blog", .default = NA)
)
info_old <- contribs_old %>% select(login, name, blog)
info_all <- bind_rows(info_old, info_new)

contribs_all <- contribs_all %>%
  left_join(info_all) %>%
  arrange(login)
write_csv(contribs_all, "contributors.csv")