diff --git a/R/Start.R b/R/Start.R index efa7e0d7c8b75013bf4e6f60020a44bfbe44cbd2..811051166b33b519e0af407ee7a6a7908a5011f5 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?")