diff --git a/R/Load.R b/R/Load.R index 5e477240824eebda35aef1ddac118e2a4e3f02c0..96b696a8d28b1830922e41c818eb8624a671aea5 100644 --- a/R/Load.R +++ b/R/Load.R @@ -741,7 +741,7 @@ Load <- function(var, exp = NULL, obs = NULL, sdates, nmember = NULL, replace_values[["NC_VAR_NAME"]] <- obs[[jobs]][['nc_var_name']] replace_values[["SUFFIX"]] <- obs[[jobs]][['suffix']] extra_vars <- names(obs[[jobs]])[which(!(names(obs[[jobs]]) %in% obs_info_names))] - replace_values[extra_vars] <- exp[[jobs]][extra_vars] + replace_values[extra_vars] <- obs[[jobs]][extra_vars] namevar <- .ConfigReplaceVariablesInString(obs[[jobs]][['nc_var_name']], replace_values) tags_to_find <- c('START_DATE', 'MONTH', 'DAY', 'YEAR', 'MEMBER_NUMBER') position_of_tags <- na.omit(match(tags_to_find, names(replace_values)))