tests/testthat/test_getDifferentialAccessibleTiles.R

In MOCHA: Modeling for Single-Cell Open Chromatin Analysis

skip_on_cran()
test_that("getDifferentialAccessibleTiles works on a 3 sample test dataset", {
  cellPopulations <- c("C3")
  capture.output(
    SampleTileMatrix <- MOCHA::getSampleTileMatrix(
      MOCHA:::testTileResultsMultisample,
      cellPopulations = cellPopulations,
      threshold = 0
    )
  )

  cellPopulation <- "C3"
  capture.output(
    suppressWarnings(differentials <- MOCHA::getDifferentialAccessibleTiles(
      SampleTileMatrix,
      cellPopulation,
      groupColumn = "Sample",
      foreground = "scATAC_BMMC_R1",
      background = "scATAC_CD34_BMMC_R1",
      outputGRanges = TRUE,
      numCores = 1,
      verbose = FALSE
    ))
  )
  expect_snapshot_output(
    differentials,
    variant = "differentials"
  )
  expect_snapshot_output(
    length(differentials),
    variant = "length"
  )
})