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

Merge branch 'develop-dimnames' into 'master'

Develop dimnames

See merge request !23
parents 60ebb892 3837aa48
Pipeline #4812 passed with stage
in 1 minute and 5 seconds
......@@ -13,6 +13,11 @@
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