context("make_alignment_dummies")
test_that("make_alignment_dummies works without errors", {
expect_error( {
library(ggplot2)
dummies <- make_alignment_dummies(
example_genes,
aes(xmin = start, xmax = end, y = molecule, id = gene),
on = "genE",
side = "right"
)
ggplot(
example_genes,
aes(xmin = start, xmax = end, y = molecule, fill = gene)
) +
geom_gene_arrow() +
geom_blank(
data = dummies,
aes(xmin = start_dummy, xmax = end_dummy, y = Track),
inherit.aes = F
) +
facet_wrap(~ molecule, scales = "free", ncol = 1)
}, NA)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.