Nothing
test_that("dimension/expected errors", {
obj <- qualitycontrol::read_qc_mapping(path = testthat::test_path("test_datasets", "qc_mapping.xlsx"))
testthat::expect_gte(length(obj), 1)
testthat::expect_true(is.list(obj))
testthat::expect_error(qualitycontrol::read_qc_mapping(path = testthat::test_path("test_datasets", "qc_mapping_error1.xlsx")))
testthat::expect_error(qualitycontrol::read_qc_mapping(path = testthat::test_path("test_datasets", "qc_mapping_error2.xlsx")))
testthat::expect_error(qualitycontrol::read_qc_mapping(path = testthat::test_path("test_datasets", "qc_mapping_error3.xlsx")))
testthat::expect_error(qualitycontrol::read_qc_mapping(path = testthat::test_path("test_datasets", "qc_mapping_error4.xlsx")))
testthat::expect_error(qualitycontrol::read_qc_mapping(path = testthat::test_path("test_datasets", "qc_mapping_error5.xlsx")))
testthat::expect_error(qualitycontrol::read_qc_mapping(path = testthat::test_path("test_datasets", "qc_mapping_error6.xlsx")))
testthat::expect_error(qualitycontrol::read_qc_mapping(path = testthat::test_path("test_datasets", "qc_mapping_error7.xlsx")))
testthat::expect_error(qualitycontrol::read_qc_mapping(path = testthat::test_path("test_datasets", "qc_mapping_error8.xlsx")))
testthat::expect_error(qualitycontrol::read_qc_mapping(path = testthat::test_path("test_datasets", "qc_mapping_error9.xlsx")))
testthat::expect_error(qualitycontrol::read_qc_mapping(path = testthat::test_path("test_datasets", "qc_mapping_error10.xlsx")))
testthat::expect_error(qualitycontrol::read_qc_mapping(path = testthat::test_path("test_datasets", "qc_mapping_error11.xlsx")))
testthat::expect_error(qualitycontrol::read_qc_mapping(path = testthat::test_path("test_datasets", "qc_mapping_error12.xlsx")))
})
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.