[Phylobase-commits] r746 - pkg/R

[noreply at r-forge.r-project.org]

Author: francois
Date: 2010-03-09 22:13:25 +0100 (Tue, 09 Mar 2010)
New Revision: 746

Modified:
   pkg/R/readNexus.R
Log:
fixed another small bug associated with option simplify

Modified: pkg/R/readNexus.R
===================================================================
--- pkg/R/readNexus.R	2010-03-09 20:09:52 UTC (rev 745)
+++ pkg/R/readNexus.R	2010-03-09 21:13:25 UTC (rev 746)
@@ -101,7 +101,7 @@
             output <- tipdata
         }
         else {
-            if (length(intreesphylolist) > 1 || !simplify) {
+            if (length(intreesphylolist) > 1 && !simplify) {
                 output <- list()
                 for (i in 1:length(intreesphylolist)) {
                     output[[i]] <- phylo4d(intreesphylolist[[i]],