tests/testthat/test-get_nearest_annotation.R

gr <- GenomicRanges::GRanges('chr10:135379301-135379311:+')
ann1 <- get_nearest_annotation(gr)
ann2 <- get_nearest_annotation(gr, CODING_ONLY = TRUE)


test_that("get_nearest_annotation", {
    expect_true(ann2$distance > ann1$distance)
    expect_equal(ann1$distance, 0)
    expect_equal(as.character(ann1$region), 'inside')
    expect_equal(as.character(ann2$region), 'downstream')
})
LieberInstitute/brainflowprobes documentation built on Nov. 10, 2019, 4:33 p.m.