[Analogue-commits] r180 - pkg/R

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

Author: gsimpson
Date: 2010-06-29 14:28:35 +0200 (Tue, 29 Jun 2010)
New Revision: 180

Modified:
   pkg/R/chooseTaxa.R
Log:
Explicitly preserve column and row names

Modified: pkg/R/chooseTaxa.R
===================================================================
--- pkg/R/chooseTaxa.R	2010-06-29 12:28:07 UTC (rev 179)
+++ pkg/R/chooseTaxa.R	2010-06-29 12:28:35 UTC (rev 180)
@@ -14,5 +14,10 @@
     } else {
         occ.want & abun.want
     }
-    return(object[,want])
+    rname <- rownames(object)
+    cname <- colnames(object)
+    object <- object[, want]
+    rownames(object) <- rname
+    colnames(object) <- cname[want]
+    return(object)
 }