fixing write.nexus()

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

diff --git a/ChangeLog b/ChangeLog
index e5380d8c6373333947086d4112811b004f770f17..4402627648978c9726de74e0bd5f6137dd84bb6c 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -7,6 +7,9 @@ BUG FIXES
 
     o zoom() shuffled tips with unrooted trees.
 
+    o write.nexus() failed to write correctly trees with a "TipLabel"
+      attribute.
+
 
 
                CHANGES IN APE VERSION 2.3-2

diff --git a/R/write.nexus.R b/R/write.nexus.R
index 4ee38f5083a6481917512b3ba382f8f41e454418..1a816f0573ff35d5b30d64e3e18c9619e775b073 100644 (file)
--- a/R/write.nexus.R
+++ b/R/write.nexus.R
@@ -1,8 +1,8 @@
-## write.nexus.R (2006-09-09)
+## write.nexus.R (2009-07-27)
 
 ##   Write Tree File in Nexus Format
 
-## Copyright 2003-2006 Emmanuel Paradis
+## Copyright 2003-2009 Emmanuel Paradis
 
 ## This file is part of the R-package `ape'.
 ## See the file ../COPYING for licensing issues.
@@ -14,7 +14,7 @@ write.nexus <- function(..., file = "", translate = TRUE, original.data = TRUE)
     if (length(obj) == 1) {
         if (class(obj[[1]]) == "phylo") ntree <- 1
         else {
-            obj <- unlist(obj, recursive = FALSE)
+            obj <- obj[[1]] # NOT use unlist()
             ntree <- length(obj)
         }
     } else ntree <- length(obj)