Skip to content

Instantly share code, notes, and snippets.

@maelle
Created June 12, 2019 11:30
Show Gist options
  • Save maelle/bfaae549c1a9aeb0421188e646d5a538 to your computer and use it in GitHub Desktop.
Save maelle/bfaae549c1a9aeb0421188e646d5a538 to your computer and use it in GitHub Desktop.
Add r, rstats and r-package topics to rOpenSci packages
repos <- ghrecipes::get_repos("ropensci")
repos <- dplyr::mutate(repos,
name = stringr::str_remove(name,
"ropensci\\/"))
# archived
repos <- dplyr::filter(repos, !is_archived)
# are packages
repos$is_pkg <- purrr::map_lgl(repos$name,
ghrecipes::is_package_repo,
owner = "ropensci")
repos <- dplyr::filter(repos, is_pkg)
get_and_update_topic <- function(repo, new_topics, owner){
message(repo)
topics <- gh::gh("GET /repos/:owner/:repo/topics",
repo = repo, owner = owner,
.send_headers = c(Accept = "application/vnd.github.mercy-preview+json"))
topics <- unlist(topics$names)
all_topics <- sort(unique(c(new_topics, topics)))
if(length(all_topics) == 1){
all_topics <- list(all_topics)
}
gh::gh("PUT /repos/:owner/:repo/topics",
names = all_topics,
repo = repo, owner = owner,
.send_headers = c(Accept = "application/vnd.github.mercy-preview+json"))
#browseURL(glue::glue("https://github.com/{owner}/{repo}"))
}
purrr::walk("tradestatistics",
get_and_update_topic,
c("r", "rstats", "r-package"),
owner = "ropensci")
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment