Commit 39737bf1 authored by nperez's avatar nperez
Browse files

undo the changes for dimnames

parent fb50c4c8
Pipeline #4813 passed with stage
in 2 minutes and 31 seconds
......@@ -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
}
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