tests/test-null.R

In nephantes/debrowser_bioconductor_release: Interactive Differential Expresion Analysis Browser

require(shiny)
library(debrowser)
library(testthat)

test_that("passing no data returns NULL", {
    expect_null(compareClust() )
    expect_null(getGOPlots(NULL, NULL))
    null_deseq <- runDE(NULL)
    expect_null(null_deseq)
    expect_null(plot_pca(NULL))
})