context('test the maha_check function')
test_that(
'maha_check runs without errors',
{
a <- dplyr::filter(GVA_by_sector_2016, sector == "all_dcms")
b <- maha_check(a)
a_split <- split(GVA_by_sector_2016,GVA_by_sector_2016$sector)
expect_is(b,"data.frame")
expect_equal(a,b)
expect_is(lapply(a_split,maha_check),"list")
}
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.