tests/testthat/test_plotJunctionDist.R

In c-mertes/FraseR: Find RAre Splicing Events in RNA-Seq Data

context("Test distribution plots for given results/junction")

test_that("Main junction distribution plot", {
    # get results
    fds <- getFraser()
    res <- results(fds, all=TRUE)

    # plot distributions
    expect_silent(plotExpression(fds, result=res[1]))
    expect_silent(plotVolcano(fds, "sample1", "jaccard"))
    expect_silent(plotExpectedVsObservedPsi(fds, result=res[2]))
    
    expect_is(plotCountCorHeatmap(fds, "jaccard", norm=FALSE), "pheatmap")
    expect_is(plotCountCorHeatmap(fds, "jaccard", norm=TRUE), "pheatmap")
    expect_is(plotCountCorHeatmap(fds, "jaccard", norm=TRUE, topN=10), "pheatmap")
})