Commit b5cfb78b authored by Nicolau Manubens's avatar Nicolau Manubens
Browse files

Fix in Subset.

parent 27e64b6c
......@@ -80,6 +80,10 @@ Subset <- function(x, along, indices, drop = FALSE) {
names(metadata[['dim']]) <- dim_names[-dims_to_drop]
metadata[['dimensions']] <- dim_names[-dims_to_drop]
}
if (length(metadata[['dim']]) == 0) {
metadata['dim'] <- list(NULL)
metadata['dimensions'] <- list(NULL)
}
} else if (is.character(dim_names)) {
names(metadata[['dim']]) <- dim_names
metadata[['dimensions']] <- dim_names
......
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