tests/testthat/test-mosaicIntPlot.R

In Nina-Song/stJoincount: stJoincount - Join count statistic for quantifying spatial correlation between clusters

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")
})