From 092749343c5b7ff4921ad2d337ec8d71198a721d Mon Sep 17 00:00:00 2001 From: Nicolau Manubens Date: Mon, 29 May 2017 19:54:22 +0200 Subject: [PATCH] Returned dimensions as requested in dim_indices. Fixes #2. --- R/NcToArray.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/R/NcToArray.R b/R/NcToArray.R index fc4b438..7bb13b6 100644 --- a/R/NcToArray.R +++ b/R/NcToArray.R @@ -223,7 +223,7 @@ NcToArray <- function(file_to_read, dim_indices = NULL, vars_to_read = NULL, reorder_back <- NULL indices_dims <- names(dim_indices)[which(names(dim_indices) %in% names(dim(var_result)))] if (length(indices_dims) > 0) { - if (any(names(dim(var_result))[-which(names(dim(var_result)) %in% names(extra_dims))] != indices_dims)) { + if (any(setdiff(names(dim(var_result)), names(extra_dims)) != indices_dims)) { reorder_back <- 1:length(dim(var_result)) dims_to_reorder <- which(!(names(dim(var_result)) %in% names(extra_dims))) reorder_back[dims_to_reorder] <- dims_to_reorder[sapply(indices_dims, -- GitLab