inst/unitTests/test_tal.R

In sysbiolab/TreeAndLeaf: Displaying binary trees with focus on dendrogram leaves

test_tal <- function(){
    hc <- hclust(dist(USArrests), "average")
    tal <- treeAndLeaf(hc)
    RUnit::checkTrue(is(tal, "igraph"))
    RUnit::checkTrue(!is.null(tal$gtype))
    RUnit::checkTrue(tal$gtype=="TreeAndLeaf")
}
test_theme<- function(){
    hc <- hclust(dist(USArrests), "average")
    tal <- treeAndLeaf(hc)
    tal <- formatTree(tal, theme = 5)
    RUnit::checkTrue(is(tal, "igraph"))
    RUnit::checkTrue(!is.null(tal$gtype))
    RUnit::checkTrue(tal$gtype=="TreeAndLeaf")
}