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")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.