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")
})
HughParsonage/hutils documentation built on Feb. 12, 2023, 8:26 a.m.