From 507aa18c4e3f9312efcb07b90766df1158a39402 Mon Sep 17 00:00:00 2001
From: paradis <paradis@6e262413-ae40-0410-9e79-b911bd7a66b7>
Date: Mon, 27 Jul 2009 13:23:14 +0000
Subject: [PATCH 1/1] fixing write.nexus()

git-svn-id: https://svn.mpl.ird.fr/ape/dev/ape@86 6e262413-ae40-0410-9e79-b911bd7a66b7
---
 ChangeLog       | 3 +++
 R/write.nexus.R | 6 +++---
 2 files changed, 6 insertions(+), 3 deletions(-)

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)
-- 
2.39.2