tests/testthat/helper-skips.R

In hfhub: Hugging Face Hub Interface

skip_if_no_token <- function() {
  token <- Sys.getenv("HUGGINGFACE_HUB_TOKEN", "")
  if (token == "") {
    token <- Sys.getenv("HUGGING_FACE_HUB_TOKEN", "")
  }

  if (token == "")
    skip("No auth token set.")
}