tests/testthat/test-load-vcf.R

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)
})
campbio/BAGEL documentation built on Oct. 6, 2020, 3:59 a.m.