tests/testthat/test_checkPairedEnd.R

test_that("checkPairedEnd works correctly", {
    fileP <- system.file("extdata", "ex1.bam", package="Rsamtools")
    p <- checkPairedEnd(fileP)
    fileS <- system.file("extdata","s1.sorted.bam", package = "strandCheckR")
    s <- checkPairedEnd(fileS)
    expect_true(p)
    expect_false(s)
})

Try the strandCheckR package in your browser

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

strandCheckR documentation built on Nov. 8, 2020, 7:02 p.m.