tests/testthat/test_1-0-0-major-drop_colr.R

context("Major drop_colr")

test_that("Outcomes", {
  library(data.table)
  DT <- data.table(abcde_ghi = 1, STE_2016 = 2)
  DT_out <- drop_colr(DT, "[A-Z]{3}")
  expect_equal(names(DT_out), "abcde_ghi")
})

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.