Commit a26efbe5 authored by Nuria Pérez-Zanón's avatar Nuria Pérez-Zanón
Browse files

Merge branch 'develop-undodimnames' into 'master'

undo the changes for dimnames

See merge request !24
parents fb50c4c8 39737bf1
Pipeline #4814 passed with stage
in 2 minutes and 12 seconds
...@@ -13,11 +13,6 @@ ...@@ -13,11 +13,6 @@
x <- x[as.vector(y)] x <- x[as.vector(y)]
} }
dim(x) <- old_dims[new_order] 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) attributes(x) <- c(attributes(x), attr_bk)
x x
} }
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment