tests/testthat/test-makeGRangesFromEnsDb.R

In acidgenomics/r-acidgenomes: Acid Genomics Genome Annotations

pkg <- "EnsDb.Hsapiens.v75"
skip_if_not_installed(pkg)

test_that("Genes", {
    x <- makeGRangesFromEnsDb(object = pkg, level = "genes")
    expect_s4_class(x, "GRanges")
})

## Note that transcript versions aren't saved in this object.
test_that("Transcripts", {
    x <- makeGRangesFromEnsDb(
        object = pkg,
        level = "transcripts",
        ignoreVersion = TRUE
    )
    expect_s4_class(x, "GRanges")
})

ah <- AnnotationHub::AnnotationHub(ask = FALSE)
edb <- ah[["AH73881"]]

test_that("Genes", {
    x <- makeGRangesFromEnsDb(object = edb, level = "genes")
    expect_s4_class(x, "GRanges")
})

test_that("Transcripts", {
    x <- makeGRangesFromEnsDb(
        object = edb,
        level = "transcripts",
        ignoreVersion = FALSE
    )
    expect_s4_class(x, "GRanges")
})