tests/testthat.R

In birtr: The R Package for "The Basics of Item Response Theory Using R"

library(testthat)
library(birtr)

check_api <- function() {
#  if (not_working()) {
    skip("API not available")
#  }
}

test_that("foo api returns bar when given baz", {
  check_api()
  ...
})