tests/testthat/testGetPackage.R

In zoon: Reproducible, Accessible & Shareable Species Distribution Modelling

context("GetPackage")

# This is interactive and so is hard to test

test_that("GetPackage", {
  t <- 3
  expect_error(zoon::GetPackage(t), "package must be a character")

  # lme4 <- try(zoon::GetPackage('lme4'), silent = TRUE)
  # expect_null(lme4, info = 'GetPackage has failed with "lme4"')
})