From: paradis <paradis@6e262413-ae40-0410-9e79-b911bd7a66b7>
Date: Mon, 27 Jul 2009 13:23:14 +0000 (+0000)
Subject: fixing write.nexus()
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=507aa18c4e3f9312efcb07b90766df1158a39402;hp=f30fff2b48d6e0463513306805eb4cbaa85edd3f;p=ape.git

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 e5380d8..4402627 100644
--- 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 4ee38f5..1a816f0 100644
--- 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)