tests/testthat/test-mosaicIntPlot.R

test_that("Visualization of the rasterization results", {
  fpath <- system.file("extdata", "dataframe.rda", package="stJoincount")
  load(fpath)

  mosaicIntegration <- rasterizeEachCluster(humanBC)
  p <- mosaicIntPlot(humanBC, mosaicIntegration)
  expect_s3_class(p, "ggplot")
})
Nina-Song/stJoincount documentation built on Oct. 23, 2022, 4:55 p.m.