Skip to content

Instantly share code, notes, and snippets.

@maelle
Created June 12, 2019 12:00
Show Gist options
  • Save maelle/35ad278d5a0444a3d0ba826ea28a309b to your computer and use it in GitHub Desktop.
Save maelle/35ad278d5a0444a3d0ba826ea28a309b to your computer and use it in GitHub Desktop.
Add docs URL
docs <- gh::gh('/users/ropensci-docs/repos?per_page=100', .limit = 1000)
repos <- ghrecipes::get_repos("ropensci")
repos2 <- ghrecipes::get_repos("ropenscilabs")
repos <- dplyr::bind_rows(repos[, "name"], repos2[, "name"])
docs <- tibble::tibble(name = purrr::map_chr(docs, "name"))
repos <- tidyr::separate(repos, name, "/", into = c("org", "name"))
docs <- dplyr::left_join(docs, repos, by = "name")
docs <- docs[!is.na(docs$org),]
get_and_update_url <- function(repo, owner){
message(repo)
url <- gh::gh("GET /repos/:owner/:repo",
repo = repo, owner = owner)$homepage
if(is.null(url)){
newurl <- paste0("https://docs.ropensci.org/", repo)
do <- gh::gh("PATCH /repos/:owner/:repo",
repo = repo, owner = owner, homepage = newurl)
return(TRUE)
}
if(url == ""){
newurl <- paste0("https://docs.ropensci.org/", repo)
do <- gh::gh("PATCH /repos/:owner/:repo",
repo = repo, owner = owner, homepage = newurl)
return(TRUE)
}
return(FALSE)
}
pof <- purrr::map2_lgl(docs$name, docs$org,
get_and_update_url)
sum(pof)
@maelle
Copy link
Author

maelle commented Jun 12, 2019

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment