Commit 0359300c authored by nperez's avatar nperez
Browse files

attribute dimnames reordered

parent 43be5d16
Pipeline #2333 failed with stage
in 1 minute and 22 seconds
......@@ -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
}
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