tests/testthat/test_plotWin.R

test_that("plotWin gives a ggplot object", {
    file <- system.file("extdata", "ex1.bam", package="Rsamtools")
    win <- getWinFromBamFile(file)
    g <- plotWin(win, group_by = "Type")
    expect_is(g,"ggplot")
})

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.