tests/testthat/test-dataPrep.R

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

test_that("generate data.frame from Seurat object", {
  fpath <- system.file("extdata", "SeuratBC.rda", package="stJoincount")
  load(fpath)

  df <- dataPrepFromSeurat(seuratBC, "Cluster")
  expect_type(df, "list")
})

test_that("generate data.frame from Spatial Experiment object", {
  fpath <- system.file("extdata", "SpeBC.rda", package="stJoincount")
  load(fpath)

  df <- dataPrepFromSpE(SpeObjBC, "label")
  expect_type(df, "list")
})