From 39737bf1e7a82025462681bb79a6c6feccccb71d Mon Sep 17 00:00:00 2001
From: nperez <nperez@bscearth372.int.bsc.es>
Date: Thu, 21 Jan 2021 19:03:47 +0100
Subject: [PATCH] undo the changes for dimnames

---
 R/zzz.R | 5 -----
 1 file changed, 5 deletions(-)

diff --git a/R/zzz.R b/R/zzz.R
index 8f27f87..662624d 100644
--- a/R/zzz.R
+++ b/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
 }
-- 
GitLab