tests/testthat/test-colnameOrder.R

In vjcitn/MultiAssayExperiment: Software for the integration of multi-omics experiments in Bioconductor

context("Colname consistency after subsetting")

test_that("when columns in different order, subset ops will rearrange them", {
    example("MultiAssayExperiment")

## Reverse the order of the samples in the first assay
    newSampMap <- rbind(sampleMap(myMultiAssayExperiment)[4:1, ],
        sampleMap(myMultiAssayExperiment)[
            5:nrow(sampleMap(myMultiAssayExperiment)), ])
sampleMap(myMultiAssayExperiment) <- newSampMap

# Rearrange ExperimentList colnames using sampleMap "assay" column
myMultiAssayExperiment <-
  myMultiAssayExperiment[, rownames(colData(myMultiAssayExperiment)), ]

  expect_true(identical(sampleMap(myMultiAssayExperiment)[1:4, "colname"],
                        colnames(myMultiAssayExperiment)[[1]]))
})