tests/testthat/test_metaInput.R

context("sample meta info")

test_that("population input is correct", {
    sample.annot <- system.file("extdata", "sampleAnnotation.txt", package="SeqSQC")
    meta <- read.table(sample.annot, header=T)
    expect_true(all(meta[,2] %in% c("AFR", "EUR", "EAS", "SAS", "ASN")))
})

Try the SeqSQC package in your browser

Any scripts or data that you put into this service are public.

SeqSQC documentation built on Nov. 8, 2020, 5:03 p.m.