context("Test plot title creation")
xname <- "S|TEST|chrX:100-101|1"
test_that("Rowname converts to human-friendly title", {
target <- make_title(xname)
expected <- "TEST\n(chrX:100-101, 1 bp, type S)"
expect_equal(target, expected)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.