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))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.