Commit 2cc63047 authored by Nicolau Manubens's avatar Nicolau Manubens
Browse files

Merge branch 'develop-bugfixes-0.0.6'

parents 27e64b6c 80a46e01
...@@ -25,5 +25,9 @@ NcReadVarNames <- function(file_to_read) { ...@@ -25,5 +25,9 @@ NcReadVarNames <- function(file_to_read) {
var_names <- c(var_names, extra_dimvars) var_names <- c(var_names, extra_dimvars)
} }
if (close) {
file_closer(file_object)
}
var_names var_names
} }
...@@ -80,6 +80,10 @@ Subset <- function(x, along, indices, drop = FALSE) { ...@@ -80,6 +80,10 @@ Subset <- function(x, along, indices, drop = FALSE) {
names(metadata[['dim']]) <- dim_names[-dims_to_drop] names(metadata[['dim']]) <- dim_names[-dims_to_drop]
metadata[['dimensions']] <- 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)) { } else if (is.character(dim_names)) {
names(metadata[['dim']]) <- dim_names names(metadata[['dim']]) <- dim_names
metadata[['dimensions']] <- dim_names metadata[['dimensions']] <- dim_names
......
Supports Markdown
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