tests/testthat/test-combine.R

In acidgenomics/r-acidsinglecell: Acid Genomics Single Cell Experiment

test_that("SCE", {
    x <- sce
    colnames(x) <- paste0(
        "cell",
        strPad(
            x = as.character(seq_len(ncol(x))),
            width = 4L,
            side = "left",
            pad = "0"
        )
    )
    y <- x
    colnames(y) <- paste0(
        "cell",
        strPad(
            x = as.character(seq_len(ncol(y)) + ncol(y)),
            width = 4L,
            side = "left",
            pad = "0"
        )
    )
    c <- combine(x, y)
    expect_s4_class(c, "SingleCellExperiment")
    expect_identical(dim(c), c(100L, 800L))
    samples <- c("sample3", "sample4", "sample1", "sample2")
    expect_identical(
        object = sampleData(c),
        expected = DataFrame(
            "sampleName" = as.factor(samples),
            "interestingGroups" = as.factor(samples),
            row.names = c(samples)
        )
    )
})