tests/testthat/test-factorize.R

In steinbaugh/S4Transformer: Coercion methods for biological data

context("factorize")

test_that("DataFrame", {
    object <- factorize(df)
    expect_s4_class(object, "DataFrame")
    expect_true(
        all(vapply(X = object, FUN = is.factor, FUN.VALUE = logical(1L)))
    )
})