github_api_team_members = function(org, team_slug, role = c("all", "member", "maintainer")) {
role = match.arg(role)
ghclass_api_v3_req(
endpoint = "GET /orgs/:org/teams/:team_slug/members",
org = org,
team_slug = team_slug,
role = role
)
}
# TODO - good candidate for v4 upgrade
#' @rdname team_members
#' @export
#'
team_members = 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) {
if (is.na(team)) {
res = NULL
} else {
res = purrr::safely(github_api_team_members)(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"),
)
}
}
)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.