context('check_dups')
## get crosswalk
cw <- get_cw_file('./testdata/cw_dup.csv')
test_that('Failed to catch duplicate values in column', {
expect_error(check_dups(cw, 'a', 'm1'))
expect_error(check_dups(cw, 'b', 'm1'))
expect_error(check_dups(cw, 'a', 'm2'))
expect_error(check_dups(cw, 'b', 'm2'))
})
## get crosswalk
cw <- get_cw_file('./testdata/cw_dup_2.csv')
test_that('Failed to catch duplicate values across columns', {
expect_error(check_dups(cw, 'b', 'c', 'm3'))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.