tests/testthat/test_data.R

In lgatto/pRolocdata: Data accompanying the pRoloc package

test_that("data validity", {
    items <- pRolocdata()$results[, "Item"]
    e <- environment()
    for (it in items) {
        data(list = it, envir = e)
        expect_true(validObject(get(it, envir = e)))
    }
})