tests/testthat/test-datasets.R

In robustfa: Object Oriented Solution for Robust Factor Analysis

test_that("datasets (if any) load successfully", {
  items <- tryCatch(utils::data(package = "robustfa")$results[, "Item"], error = function(e) character())
  for (d in items) {
    expect_error(utils::data(list = d, package = "robustfa"), NA)
  }
})