From 27aad36aa5fb0a9911449afa133381920da8048d Mon Sep 17 00:00:00 2001 From: aho Date: Thu, 25 Feb 2021 17:56:01 +0100 Subject: [PATCH] Remove incorrect check of character selector. --- R/Start.R | 14 -------------- 1 file changed, 14 deletions(-) diff --git a/R/Start.R b/R/Start.R index efa7e0d..8110511 100644 --- a/R/Start.R +++ b/R/Start.R @@ -3130,20 +3130,6 @@ Start <- function(..., # dim = indices/selectors, } # The sub_array_of_indices now contains numeric indices of the values to be taken by each chunk. - # Check if all the files have the selectors assigned (e.g., region = 'Grnland') _20191015 - if (is.character(sub_array_of_selectors)) { - array_of_var_files_check <- vector('list', length(selector_indices)) - for (k in 1:length(selector_indices)) { - asdasd <- selector_indices[[k]] - array_of_var_files_check <- do.call('[', c(list(x = array_of_files_to_load), asdasd, list(drop = FALSE)))[j] - file_object <- file_opener(array_of_var_files_check) - var_values_check <- file_var_reader(NULL, file_object, NULL, var_to_read, synonims) - if (any(as.vector(var_values_check)[sub_array_of_indices] != sub_array_of_selectors)) { - .warning('Not all the files has correponding selectors. Check the selector attributes') - } - } - } - if (debug) { if (inner_dim %in% dims_to_check) { print("-> TRANSFORMATION REQUESTED?") -- GitLab