tests/testthat.R

In lianos/sparrow: Take command of set enrichment analyses through a unified interface

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

test_check("sparrow")

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