inst/unitTests/test_plotStateSize.R

test_plotStateSize <- function() {
  data(exSCE)
  dat <- SingleCellExperiment(assay=list(logcounts=logcounts(exSCE)))
  RUnit::checkException(plotStateSize(dat)) #Empty
  ggp <- plotStateSize(exSCE)
  RUnit::checkTrue(length(ggp$layers) > 0)
}

Try the CellTrails package in your browser

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

CellTrails documentation built on Nov. 8, 2020, 5:53 p.m.