tests/testthat/test-select.R

context("select")

x <- mtcars

test_that("selectIf", {
    x <- selectIf(x, predicate = is.double)
    expect_s4_class(x, "DataFrame")
    expect_true(hasRownames(x))
})
acidgenomics/transformer documentation built on Jan. 9, 2020, 11:34 a.m.