R/hud_skip_if_no_key.R

In etam4260/rhud: A R interface for accessing HUD (US Department of Housing and Urban Development) APIs

#' @import testthat

#' @name rhud_website
#' @title Access RHUD Web Resources
#' @description Quickly get documentation for the rhud package by opening up
#'   the websites associated with it.
skip_if_no_key <- function() {
  if (Sys.getenv("HUD_KEY") == "") {
    testthat::skip("The HUD_KEY variable is empty: will not run the test.")
  }
}