tests/testthat/test-import_narrowPeak.R

test_that("import_narrowPeak works", {

  path <- EpiCompare::write_example_peaks(datasets="encode_H3K27ac")
  peaks <- rtracklayer::import(path, format = "narrowPeak")
  testthat::expect_true(methods::is(peaks,"GRanges"))
  testthat::expect_length(peaks,5142)
  testthat::expect_equal(ncol(GenomicRanges::mcols(peaks)),6)
})
neurogenomics/EpiCompare documentation built on Oct. 18, 2024, 11:04 p.m.