tests/testthat/test_install_formats.R

In leeper/rio: A Swiss-Army Knife for Data I/O

test_that("uninstalled_formats()", {
    skip_on_cran()
    formats <- uninstalled_formats()
    if (is.null(formats)) {
        expect_true(install_formats())
    } else {
        expect_type(formats, "character")
    }
})