Bug in nc2a, not dropping var_dim.

R/NcToArray.R

@@ -246,7 +246,7 @@ NcToArray <- function(file_to_read, dim_indices = NULL, vars_to_read = NULL,
           #names(dim(var_result)) <- sapply(file_object$var[[var_name]]$dim, '[[', 'name')
         }
         if (!is.null(var_result)) {
-          if (!drop_var_dim || (length(vars_to_read_vector) == 1)) {
+          if (!(drop_var_dim && (length(vars_to_read_vector) == 1))) {
             dim(var_result) <- c(setNames(1, var_tag), dim(var_result))
           }
           attr(var_result, 'variables') <- structure(list(atts), .Names = var_name)