[Phylobase-commits] r371 - pkg/R

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

Author: pdc
Date: 2008-12-20 06:40:23 +0100 (Sat, 20 Dec 2008)
New Revision: 371

Modified:
   pkg/R/methods-phylo4d.R
Log:
wrap extremely long lines

Modified: pkg/R/methods-phylo4d.R
===================================================================
--- pkg/R/methods-phylo4d.R	2008-12-20 04:05:53 UTC (rev 370)
+++ pkg/R/methods-phylo4d.R	2008-12-20 05:40:23 UTC (rev 371)
@@ -82,12 +82,15 @@
         tdata <- data.frame(label=data.names,tdata)
 
         if ( identical(label.type,"row.names") ) {
-            if ( identical(data.names,unique(data.names)) || !(any(is.na(data.names))) ) {
+            if ( identical(data.names,unique(data.names)) || 
+                !(any(is.na(data.names))) ) {
                 tdata <- data.frame(tdata[,-1,drop=FALSE])
                 row.names(tdata) <- data.names
             }
             else {
-                stop("Non-unique or missing labels found, labels cannot be coerced to tdata row.names. Use the label.type argument to include labels as first column of data.")
+                stop("Non-unique or missing labels found, labels cannot be 
+                    coerced to tdata row.names. Use the label.type argument to 
+                    include labels as first column of data.")
             }
         }
         return(tdata)