tests/testthat/test-geom_cladelabel.R

In GuangchuangYu/ggtree: an R package for visualization of tree and annotation data

context('geom_cladelabel')


test_that('geom_cladelabel support parsing expression', {
    p <- ggtree(rtree(30)) + geom_cladelabel(node=40, label='paste(italic("species name"), "accession number")', parse=T)
    expect_true(ggplot2::is.ggplot(p))
})