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