diff --git a/R/Start.R b/R/Start.R index 7f14a300128f5f4b165a7a5017a629913a04692d..51babf83fb1d1a73bd1619db0ef2e0ed489431e1 100644 --- a/R/Start.R +++ b/R/Start.R @@ -1664,6 +1664,8 @@ Start <- function(..., # dim = indices/selectors, .FindTagValue(path_with_globs_and_tag, found_file, u_file_dim)) } + #TODO: selector_checker() doesn't allow selectors to be characters. For selectors + # like "member = 'r7i1p1f1", it cannot be defined with values. dat_selectors[[u_file_dim]][[j]] <- selector_checker(selectors = selectors, var = unique(parsed_values), return_indices = FALSE) @@ -1677,6 +1679,10 @@ Start <- function(..., # dim = indices/selectors, } #print("I") } else { + + #NOTE: If there is no non-explicitly defined dim, use the first found file + # to modify. Problem: '*' doesn't catch all the possible file. Only use + # the first file. dat[[i]][['path']] <- .ReplaceGlobExpressions(dat[[i]][['path']], first_file, replace_values, defined_file_dims, dat[[i]][['name']], path_glob_permissive) }