tests/testthat/test-sumbatchCorEval.R

In DavisLaboratory/standR: Spatial transcriptome analyses of Nanostring's DSP data in R

test_that("Testing the function of computing evaluation statistics for batch correction", {
  library(scater)
  data("dkd_spe_subset")
  eval_out <- computeClusterEvalStats(dkd_spe_subset, "SlideName")

  expect_equal(nrow(eval_out), 6)
  expect_equal(ncol(eval_out), 2)

  expect_error(computeClusterEvalStats(dkd_spe_subset, "xyz"))
})

test_that("Testing the function of plotting and comparing different batch-corrected data", {
  library(scater)
  data("dkd_spe_subset")
  spe <- dkd_spe_subset
  spe2 <- spe
  spe3 <- spe

  p <- plotClusterEvalStats(list(spe, spe2, spe3),
                            bio_feature_name = "region",
                            batch_feature_name = "SlideName", 
                            c("test1", "test2", "test3")
  )
  expect_s3_class(p, "ggplot")

  expect_error(plotClusterEvalStats(list(spe, spe2, spe3),
    bio_feature_name = "xyz",
    batch_feature_name = "SlideName", c("test1", "test2", "test3")
  ))

  expect_error(plotClusterEvalStats(list(spe, spe2, spe3),
    bio_feature_name = "region",
    batch_feature_name = "xyz", c("test1", "test2", "test3")
  ))
})