longtests/testthat/test_getProfileData.R

bw <- system.file("tests", "test.bw", package = "rtracklayer")
gr <- GRanges("chr2:500")

# Stop testing this to try get build below 10 mins
test_that("Paths behave correctly", {
  expect_s4_class(getProfileData(bw, gr, upstream = 10, bins = 10), "GRanges")
  expect_s4_class(getProfileData(c(bw, bw), gr, upstream = 10, bins = 10), "GRangesList")
})
steveped/chipExtra documentation built on Aug. 1, 2024, 12:33 a.m.