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 June 9, 2025, 12:44 a.m.