context("extract_SIC91_data works as expected")
testxl <- file.path('testdata', 'SIC91_test.xlsm')
reference <- file.path('testdata', 'test_reference_sic91.Rds')
test_that(
"extract_SIC91_data can extract data from a dummy spreadsheet",
{
expect_message(SIC91 <- extract_SIC91_data(testxl, sheet_name = 'SIC 91 Sales Data'))
expect_is(SIC91, c('data.frame', 'tbl', 'tbl_df'))
expect_equal_to_reference(SIC91, reference)
}
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.