tests/testthat/test_1-1-0_drop_constant_cols.R

context("Drop constant cols extra")

test_that("Works with <2 rows", {
  expect_equal(drop_constant_cols(data.table(x = 1)), data.table())
  expect_equal(drop_constant_cols(data.frame(x = 1)), data.frame())
})
HughParsonage/hutils documentation built on Feb. 12, 2023, 8:26 a.m.