tests/testthat/test-granges_to_bed.R

test_that("granges_to_bed works", {
  
    grlist <- echodata::dt_to_granges(dat = echodata::BST1)
    
    #### Saved ###
    bed_path <- echodata:: granges_to_bed(grlist = grlist)
    bed <- data.table::fread(bed_path)
    testthat::expect_equal(length(grlist), nrow(bed)) 
})
RajLabMSSM/echodata documentation built on Nov. 21, 2023, 8 a.m.