tests/testthat/test-plotCountsPerBiotype.R

In hbc/bcbioRNASeq: Bcbio RNA-Seq

test_that("plotCountsPerBiotype", {
    x <- plotCountsPerBiotype(object)
    expect_s3_class(x, "ggplot")
})



test_that("plotCountsPerBroadClass", {
    x <- plotCountsPerBroadClass(object)
    expect_s3_class(x, "ggplot")
})