tests/testthat/test-ggvenn.R

test_that("ggvenn() is working", {
    testdat <- readRDS(file.path(system.file("extdata", package="hypeR"), "testdat.rds"))
    signature <- testdat$signature
    genesets <- testdat$gsets$genesets
    p <- ggvenn(signature, genesets[[1]], "signature", "genset", "Geneset Name")
    expect_is(p, "gg")
})

Try the hypeR package in your browser

Any scripts or data that you put into this service are public.

hypeR documentation built on Nov. 8, 2020, 8:19 p.m.