tests/testthat/test-encode-decode.R

test_that("SummarizedExperiment", {
    object <- rse
    x <- encode(object)
    expect_s4_class(rowData(x)[[1L]], "Rle")
    expect_s4_class(colData(x)[[1L]], "Rle")
    y <- decode(object)
    expect_s3_class(rowData(y)[[1L]], "factor")
    expect_s3_class(colData(y)[[1L]], "factor")
})
acidgenomics/r-acidexperiment documentation built on March 29, 2025, 4:20 a.m.