fixing zoom()

git-svn-id: https://svn.mpl.ird.fr/ape/dev/ape@85 6e262413-ae40-0410-9e79-b911bd7a66b7

diff --git a/ChangeLog b/ChangeLog
index 678bba7b17c60151cf7e1dd0924e69c7ae72341e..e5380d8c6373333947086d4112811b004f770f17 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -3,7 +3,9 @@
 
 BUG FIXES
 
-    o 
+    o add.scale.bar() always drew a horizontal bar.
+
+    o zoom() shuffled tips with unrooted trees.
 
 
 

diff --git a/DESCRIPTION b/DESCRIPTION
index 55c662cf89431a42ad893933b8cb2940585844a4..e09314b68f7cd3bf5a9eacf2ac69672564968455 100644 (file)
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: ape
 Version: 2.3-3
-Date: 2009-07-22
+Date: 2009-07-27
 Title: Analyses of Phylogenetics and Evolution
 Author: Emmanuel Paradis, Ben Bolker, Julien Claude, Hoa Sien Cuong, Richard Desper, Benoit Durand, Julien Dutheil, Olivier Gascuel, Gangolf Jobb, Christoph Heibl, Daniel Lawson, Vincent Lefort, Pierre Legendre, Jim Lemon, Yvonnick Noel, Johan Nylander, Rainer Opgen-Rhein, Korbinian Strimmer, Damien de Vienne
 Maintainer: Emmanuel Paradis <Emmanuel.Paradis@ird.fr>

diff --git a/R/zoom.R b/R/zoom.R
index f078bb438c9292e03e1d56518ac23982691b8967..b24737612f73048e7594dc09450f587e5306f448 100644 (file)
--- a/R/zoom.R
+++ b/R/zoom.R
@@ -1,4 +1,4 @@
-## zoom.R (2009-06-12)
+## zoom.R (2009-07-27)
 
 ##   Zoom on a Portion of a Phylogeny
 
@@ -20,7 +20,7 @@ zoom <- function(phy, focus, subtree = FALSE, col = rainbow, ...)
     ext <- vector("list", n)
     for (i in 1:n)
       ext[[i]] <- drop.tip(phy, phy$tip.label[-focus[[i]]],
-                           subtree = subtree)
+                           subtree = subtree, rooted = TRUE)
     nc <- round(sqrt(n)) + 1
     nr <- ceiling(sqrt(n))
     M <- matrix(0, nr, nc)