test_that("use", {
lut <- get_haplotype_lut()
index <- 42
haplotype_id <- lut$id[index]
haplotype <- convert_haplotype_ids_to_haplotypes(haplotype_id)
expect_equal(haplotype, lut$haplotype[index])
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.