inst/unitTests/test_subpathwayVisualization.R

In DEsubs: DEsubs: an R package for flexible identification of differentially expressed subpathways using RNA-seq expression experiments

test_subpathwayVisualization <- function() 
{
   message('Testing subpathwayVisualization', appendLF=FALSE)
    
	load(system.file('extdata', 'data.RData', package='DEsubs'))

   all.equal(1, 1)

   message('done.')
}