tests/testthat/test-clonalProportion.R

In ncborcherding/scRepertoire: A toolkit for single-cell immune receptor profiling

# test script for clonalProportion.R - testcases are NOT comprehensive!

test_that("clonalProportion works", {

  combined <- getCombined()

  expect_doppelganger(
    "clonalProportion_plot",
    clonalProportion(combined, 
                    cloneCall = "gene")
  )
  expect_equal(
    clonalProportion(combined, 
                    cloneCall = "gene", 
                    exportTable = TRUE),
      getdata("visualizations", "clonalProportion_exportTable")
  )
})