tests/testthat/test_data.R

In catavallejos/BASiCS: Bayesian Analysis of Single-Cell Sequencing data

test_that("data preserves colnames", {
  # Expression counts
  set.seed(1)
  Counts <- matrix(rpois(50*10, 2), ncol = 10)
  rownames(Counts) <- paste0('Gene', 1:50)
  colnames(Counts) <- paste('Cell', seq_len(ncol(Counts)))
  BatchInfo <- c(rep(1, 5), rep(2, 5))
  # Creating a BASiCS_Data object (with batch effect)
  DataExample <- SingleCellExperiment(
    assays = list(counts = Counts)
  )
  colData(DataExample) <- S4Vectors::DataFrame(
    BatchInfo = BatchInfo,
    row.names = colnames(Counts)
  )
  expect_identical(colnames(DataExample), colnames(Counts))
})