context('Data Files')
test_that('the correct test data files are supplied', {
x <- get_test_patient_hla_data()
expect_that(digest(x), equals("58237040b39e2baa5dab6f5c87d1a6d8"))
x <- get_test_lanl_hla_data()
expect_that(digest(x), equals("c8ffd415e9e5d74f9e068a8907590d74"))
x <- get_test_query_alignment()
expect_that(digest(x), equals("49892fc52f9dc19bbbaf41227450ff20"))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.