tests/testthat/test-organism.R

test_that("SE", {
    object <- rse
    expect_identical(
        object = organism(object),
        expected = "Homo sapiens"
    )
})

test_that("SE : metadata stash", {
    object <- rse
    org <- "xxx"
    metadata(object)[["organism"]] <- org
    expect_identical(organism(object), org)
})

test_that("SE : no rowData", {
    object <- rse
    rowData(object) <- NULL
    expect_error(
        object = organism(object),
        regexp = "detect"
    )
})
acidgenomics/r-acidexperiment documentation built on March 29, 2025, 4:20 a.m.