[Phylobase-commits] r567 - pkg/R

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

Author: francois
Date: 2009-08-23 01:22:14 +0200 (Sun, 23 Aug 2009)
New Revision: 567

Modified:
   pkg/R/checkdata.R
Log:
should fix bug #599

Modified: pkg/R/checkdata.R
===================================================================
--- pkg/R/checkdata.R	2009-08-22 04:31:20 UTC (rev 566)
+++ pkg/R/checkdata.R	2009-08-22 23:22:14 UTC (rev 567)
@@ -292,7 +292,7 @@
         dt <- dt[!is.na(ndDt) ,, drop=FALSE]
         rownames(dt) <- ndDt[!is.na(ndDt)]
         if(label.type == "column") dt <- dt[, -label.column]
-        tmpDt <- dt[match(rownames(tmpDt), rownames(dt)) ,, drop=FALSE]
+        tmpDt[,] <- dt[match(rownames(tmpDt), rownames(dt)) ,, drop=FALSE]
     }
     else {
         ## Remove rownames in data provided