Nothing
context('confirm_col')
## get crosswalk
cw <- get_cw_file('./testdata/cw.csv')
test_that('Failed to confirm actual columns', {
expect_error(confirm_col(cw, 'a', 'm1'), NA)
expect_error(confirm_col(cw, 'b', 'm1'), NA)
})
test_that('Failed to throw error for missing columns', {
expect_error(confirm_col(cw, 'z', 'm1'))
expect_error(confirm_col(cw, 'z', 'm2'))
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.