R/github-tags.R

In woodendesc: Find Packages and Their Dependencies in Any 'R' Repository

#' List GitHub tags for a repository
#'
#' @description This function queries GitHub for a list of tags for a given
#' repository (indicated by a combination of package name and username). Each
#' element is a tag, which need not be identical or even related to version code
#' of the package at the given time.
#'
#' @template package
#' @template gh-user
#'
#' @return A character vector of repository tags.
#'
#' @examples
#' \donttest{
#' wood_github_tags("gglgbtq", "turtletopia")
#' # Sometimes there are no tags (yet?)
#' wood_github_tags("ggpizza", "turtletopia")
#' }
#'
#' @family github
#' @export
wood_github_tags <- function(package, user) {
  assert_param_package(package)
  assert_param_gh_user(user)

  github_tags_cache(package, user)
}

github_tags_cache <- function(package, user) {
  with_cache({
    url <- github_url("repos", user, package, "tags")
    content <- download_safely(url, on_status = list(
      `403` = stopf_gh_rate_limit,
      `404` = function() stopf(
        "Can't find repository `%1$s/%2$s` on Github.", user, package
      )
    ))
    vapply(content, `[[`, character(1), "name")
  }, "tags", "github", user, package)
}