From e340adfc4a4a9979d70d8f3776fa47bf82420510 Mon Sep 17 00:00:00 2001 From: Nicolau Manubens Date: Tue, 4 Oct 2016 11:33:35 +0200 Subject: [PATCH] Fixed bug. --- R/Load.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/R/Load.R b/R/Load.R index 5e477240..96b696a8 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))) -- GitLab