tests/testthat/test-ggdendro.R

In dendextend: Extending 'dendrogram' Functionality in R

# library(testthat)
# library(dendextend)


context("ggdendro")


options("verbose" = T)
test_that("dendrogram_data works", {
   capture.output({
      
   dend <- as.dendrogram(hclust(dist(1:5)))
   plot.new()
   
   # if a leaf is passed in
   expect_error(
      dendrogram_data(dend[[1]][[1]])
   )
   
   # if triangle used
   expect_no_error(
      res <- dendrogram_data(dend, "triangle")
   )
   # if dend with edgetext is passed in
   attr(dend, "edgetext") <- "test 1"
   attr(dend[[1]][[1]], "edgetext") <- "test 2"
   expect_no_error(
      res <- dendrogram_data(dend)
   )
   expect_no_error(
      res <- dendrogram_data(dend, "triangle")
   )
   
   # if center = T
   trace("dendrogram_data", quote(center <- TRUE), at = 6)
   expect_no_error(
      res <- dendrogram_data(dend)
   )
   untrace("dendrogram_data")
   
   # if nodePar = (pch = 1)
   trace("dendrogram_data", quote(nodePar <- c(pch = 1)), at = 15)
   expect_no_error(
      res <- dendrogram_data(dend)
   )
   
   # if nodePar = 1
   trace("dendrogram_data", quote(nodePar <- 1), at = 15)
   expect_no_error(
      res <- dendrogram_data(dend)
   )
   
   # if a height is NULL
   attr(dend[[1]][[1]], "height") <- NULL
   attr(dend[[1]][[1]], "pch") <- 1
   expect_no_error(
      res <- dendrogram_data(dend)
   )
   
   # if a leaf has a null label
   attr(dend[[1]][[1]], "label") <- NULL
   expect_no_error(
      res <- dendrogram_data(dend)
   )
   untrace("dendrogram_data")
   
   })
})
options("verbose" = F)