context("Test Loading VCF File")
library("BAGEL")
test_that(desc = "Testing VCF Input", {
vcf_file <- system.file("testdata", "public_LUAD_TCGA-97-7938.vcf",
package = "BAGEL")
vcf <- BAGEL::extract_variants_from_vcf_file(vcf_file)
expect_s3_class(vcf, "data.table")
expect_equal(nrow(vcf), 121)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.