R/team_pending.R

In rundel/ghclass: Tools for Managing Classes on GitHub

github_api_team_pending = function(org, team_slug) {
  ghclass_api_v3_req(
    endpoint = "GET /orgs/:org/teams/:team_slug/invitations",
    org = org,
    team_slug = team_slug
  )
}

#' @rdname team_members
#' @export
#'
team_pending = function(org, team = org_teams(org), team_type = c("name", "slug")) {
  arg_is_chr_scalar(org)
  arg_is_chr(team)
  team_type = match.arg(team_type)

  if (team_type == "name")
    team = team_slug_lookup(org, team)

  check_team_slug(team)

  purrr::map_dfr(
    team,
    function(team) {
      res = purrr::safely(github_api_team_pending)(org, team)

      status_msg(
        res,
        fail = "Failed to retrieve team members for {.val {team}}."
      )

      if (failed(res) | empty_result(res)) {
        tibble::tibble(
          team = character(),
          user = character()
        )
      } else {
        tibble::tibble(
          team = team,
          user = purrr::map_chr(result(res), "login")
        )
      }
    }
  )
}