tests/testthat/test-vcf_to_plink.R

test_that("vcf_to_plink works", {
    
    vcf <- system.file("extdata", "BST1.1KGphase3.vcf.bgz",
        package = "echodata")
    paths <- vcf_to_plink(vcf = vcf)
    testthat::expect_true(
        all(file.exists(unlist(paths)[-1]))
    )
})
RajLabMSSM/echoLD documentation built on May 12, 2024, 3:23 a.m.