tests/testthat.R

In lianos/multiGSEA: A unified interface to a plethora of gene set enrichment analysis methods

library("multiGSEA")
library("testthat")
library("data.table")
library("dplyr")

test_check("multiGSEA")

## Remove temporary files that were generated
test.dir <- system.file('tests', package='multiGSEA')
pdfs <- dir(test.dir, '\\.pdf$', full.names=TRUE)
if (length(pdfs)) {
  unlink(pdfs)
}