tests/testthat/test-select.R

x <- as(mtcars, "DFrame")

test_that("selectIf", {
    x <- selectIf(x, predicate = is.double)
    expect_s4_class(x, "DFrame")
    expect_true(hasRownames(x))
})
acidgenomics/r-acidplyr documentation built on July 4, 2025, 5:55 a.m.