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())
})

Try the hutils package in your browser

Any scripts or data that you put into this service are public.

hutils documentation built on Aug. 20, 2018, 9:04 a.m.