tests/testthat/helper-offline.R

In r-lib/gh: 'GitHub' 'API'

skip_if_no_github <- function(has_scope = NULL) {
  skip_if_offline("github.com")
  skip_on_cran()

  if (gh_token() == "") {
    skip("No GitHub token")
  }

  if (!is.null(has_scope) && !has_scope %in% test_scopes()) {
    skip(cli::format_inline("Current token lacks '{has_scope}' scope"))
  }
}

test_scopes <- function() {
  # whoami fails on GHA
  whoami <- env_cache(cache, "whoami", tryCatch(
    gh_whoami(),
    error = function(err) list(scopes = "")
  ))
  strsplit(whoami$scopes, ", ")[[1]]
}

cache <- new_environment()