tests/testthat/helpers.R

skip_if_no_auth <- function(token_name = "NETTSKJEMA_API_TOKEN") {
  if (identical(Sys.getenv(token_name), "")) {
    testthat::skip("No authentication available")
  }
}
LCBC-UiO/nettskjemar documentation built on Aug. 24, 2023, 5:44 p.m.