From 0359300cd062dca707117fe7f12d98194569289d Mon Sep 17 00:00:00 2001 From: nperez Date: Thu, 31 Oct 2019 10:47:07 +0100 Subject: [PATCH 1/2] attribute dimnames reordered --- R/zzz.R | 3 +++ 1 file changed, 3 insertions(+) diff --git a/R/zzz.R b/R/zzz.R index 662624d..5358507 100644 --- a/R/zzz.R +++ b/R/zzz.R @@ -13,6 +13,9 @@ x <- x[as.vector(y)] } dim(x) <- old_dims[new_order] + if (names(attr_bk) == 'dimnames') { + attr_bk <- list(dimnames = attr_bk$dimnames[new_order]) + } attributes(x) <- c(attributes(x), attr_bk) x } -- GitLab From 58fbae696573b645cd16c9176aafe6c3976bc21e Mon Sep 17 00:00:00 2001 From: nperez Date: Thu, 31 Oct 2019 14:23:03 +0100 Subject: [PATCH 2/2] attributes can be length zero --- R/zzz.R | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/R/zzz.R b/R/zzz.R index 5358507..8f27f87 100644 --- a/R/zzz.R +++ b/R/zzz.R @@ -13,8 +13,10 @@ x <- x[as.vector(y)] } dim(x) <- old_dims[new_order] - if (names(attr_bk) == 'dimnames') { - attr_bk <- list(dimnames = attr_bk$dimnames[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