Merge branch 'develop-bugfixes-0.0.6'

R/NcReadVarNames.R

@@ -25,5 +25,9 @@ NcReadVarNames <- function(file_to_read) {
     var_names <- c(var_names, extra_dimvars)
   }
 
+  if (close) {
+    file_closer(file_object)
+  }
+
   var_names
 }

R/Subset.R

@@ -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