R/zzz.R

@@ -13,6 +13,11 @@
     x <- x[as.vector(y)]
   }
   dim(x) <- old_dims[new_order]
+  if (length(attr_bk) > 0) {
+    if (names(attr_bk) == 'dimnames') {
+      attr_bk <- list(dimnames = attr_bk$dimnames[new_order])
+    } 
+  }
   attributes(x) <- c(attributes(x), attr_bk)
   x
 }