Fixed bug...

R/NcToArray.R

@@ -220,8 +220,10 @@ NcToArray <- function(file_to_read, dim_indices = NULL, vars_to_read = NULL,
             ## TODO: Crop dimensions in attributes
             if (!is.null(reorder_back)) {
               var_result <- aperm(var_result, reorder_back)
+              names(dim(var_result)) <- names(indices_to_take)[reorder_back]
+            } else {
+              names(dim(var_result)) <- names(indices_to_take)
             }
-            names(dim(var_result)) <- names(indices_to_take)[reorder_back]
             #if (!is.null(missing_dims)) {
             #  dim(var_result) <- original_dims
             #}