Closing open connections.

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
 }