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

Try the hutils package in your browser

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

hutils documentation built on April 13, 2022, 5:23 p.m.