R/org-list-user-orgs.R

In hrbrmstr/crumpets: Tools to Work with and Manage 'gitea'

#' List a user's organizations
#'
#' @md
#' @note this appears to not be working on the Gitea side
#' @param username username of user
#' @param api_endpoint URL prefix for your gitea server (no trailing '/')
#' @param gitea_token NOTE: we use `access_token` in the package
#' @return something
#' @export
#' @examples \dontrun{
#' org_list_user_orgs("hrbrmstr")
#' }
org_list_user_orgs <- function(username, api_endpoint = Sys.getenv("GITEA_BASE_URL"),
                               gitea_token = Sys.getenv("GITEA_PAT")) {

  api_endpoint <- sub("/$", "", api_endpoint)

  gitea_url <- file.path(api_endpoint, "api/v1", sub("^/", "", "/user/{username}/orgs"))
  gitea_url <- glue::glue_data(list(username=username), gitea_url)

  httr::VERB(
    verb = "GET",
    url = gitea_url,
    query = list(
      `username` = `username`,
      access_token = gitea_token
    ),
    encode = "json",
    httr::user_agent("crumpets r package <https://gitlab.com/hrbrmstr/crumpets")
  ) -> res

  httr::stop_for_status(res)

  out <- httr::content(res, as = "text")
  out <- jsonlite::fromJSON(out)

  invisible(out)
}