# load GOTTCHA2 assignments
#
# projects
#
data_file <- "../test_data/test_table_gottcha2.txt"
# read em
#
the_list <- load_edge_assignments(data_file, type = 'gottcha2')
# tests
#
expect_that(length(the_list), equals(4))
expect_that(names(the_list[4]), equals("Anterior_nares_male_SRR062284"))
#
# test the failure
#
expect_that(load_edge_assignments("../test_data/nonexistentfile.txt", type = 'gottcha2'), throws_error())
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.