context("geom_locus.R")
test_that("making the locus object", {
data(arapat)
p <- geom_locus( aes(x=WNT), data=arapat )
expect_that( p, is_a("ggproto"))
expect_that( p, is_a("LayerInstance"))
expect_that( p, is_a("Layer"))
p <- geom_locus( aes(x=WNT, fill=Cluster), data=arapat )
expect_that( p, is_a("ggproto"))
expect_that( p, is_a("LayerInstance"))
expect_that( p, is_a("Layer"))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.