From d97c42a11eefe34fe51cc6cc4a4c0872004ad747 Mon Sep 17 00:00:00 2001 From: Nicolau Manubens Date: Sat, 8 Apr 2017 02:08:27 +0200 Subject: [PATCH] Fixed bug... --- R/NcToArray.R | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/R/NcToArray.R b/R/NcToArray.R index e07315c..45c3289 100644 --- a/R/NcToArray.R +++ b/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 #} -- GitLab