context("test-closest")
test_that("closest works", {
A.bed <- read.table(text=
"chr1 10 20 a1 1 -")
B.bed <- read.table(text=
"chr1 7 8 b1 1 -
chr1 15 25 b2 2 +")
results <- read.table(text=
"chr1 10 20 a1 1 - chr1 15 25 b2 2 +")
expect_equal(bedtoolsr::bt.closest(A.bed, B.bed), results)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.