tests/testthat/test_plotting.R

library(soGGi)
context("Test plot returns a gg object")
data(chipExampleBig)
p <- plotRegion(chipExampleBig)
expect_that(all(class(p) == c("gg","ggplot")),is_true()
            )
ThomasCarroll/soGGi documentation built on May 7, 2019, 8:40 a.m.