tests/testthat/test-1-2-0_drop_grep.R

context("drop grep")

test_that("drop grep", {
  library(data.table)
  dt <- data.table(x = 1, y = 2)
  expect_equal(drop_grep(dt, "y"), data.table(x = 1))
})
HughParsonage/hutils documentation built on Feb. 12, 2023, 8:26 a.m.