Label leaves

ms609 · Sep 7, 2023 · 768dbd0 · 768dbd0
1 parent 5535cfa
commit 768dbd0
Show file tree

Hide file tree

Showing 4 changed files with 199 additions and 7 deletions.
diff --git a/R/plot.R b/R/plot.R
@@ -18,8 +18,8 @@
 #' @keywords internal
 #' @export
 TreeDistPlot <- function(tr, title = NULL, bold = NULL, leaveRoom = FALSE,
-                          prune = integer(0), graft = integer(0),
-                          edge.color = "black", edge.width = NULL, ...) {
+                         prune = integer(0), graft = integer(0),
+                         edge.color = "black", edge.width = NULL, ...) {
 
   nEdge <- dim(tr$edge)[1]
   if (is.null(tr$edge.length)) {

diff --git a/tests/testthat/_snaps/plot/vm-one-rooted.svg b/tests/testthat/_snaps/plot/vm-one-rooted.svg
diff --git a/tests/testthat/_snaps/plot/vm-unrooted.svg b/tests/testthat/_snaps/plot/vm-unrooted.svg
diff --git a/tests/testthat/test-plot.R b/tests/testthat/test-plot.R
@@ -141,20 +141,19 @@ test_that("VisualizeMatching() handles unrooted trees", {
   skip_if_not_installed("graphics", "4.3")
   skip_if_not_installed("vdiffr", "1.0")
 
-
   vdiffr::expect_doppelganger("VM unrooted", function() {
     par(mfrow = c(2, 2), mar = rep(0.1, 4), cex = 1.5)
-    tree1 <- UnrootTree(BalancedTree(5))
-    tree2 <- UnrootTree(PectinateTree(5))
+    tree1 <- UnrootTree(BalancedTree(1:5))
+    tree2 <- UnrootTree(PectinateTree(1:5))
     VisualizeMatching(RobinsonFouldsMatching, tree1, tree2,
                       setPar = FALSE,
                       Plot = TreeDistPlot)
   })
 
   vdiffr::expect_doppelganger("VM one rooted", function() {
     par(mfrow = c(2, 2), mar = rep(0.1, 4), cex = 1.5)
-    tree1 <- UnrootTree(BalancedTree(5))
-    tree2 <- PectinateTree(5)
+    tree1 <- UnrootTree(BalancedTree(1:5))
+    tree2 <- PectinateTree(1:5)
     VisualizeMatching(RobinsonFouldsMatching, tree1, tree2,
                       setPar = FALSE,
                       Plot = TreeDistPlot)