R/zzz.R

@@ -13,11 +13,6 @@
     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
 }