From b542c78094edc7230e19cd1dec2f66fa3149bd9e Mon Sep 17 00:00:00 2001 From: Victoria Agudetse Roures Date: Tue, 18 Jul 2023 12:18:20 +0200 Subject: [PATCH] Only try to save fcst if it exists, even if parameter 'save' is set to 'all' --- modules/Anomalies/Anomalies.R | 4 ++-- modules/Calibration/Calibration.R | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/modules/Anomalies/Anomalies.R b/modules/Anomalies/Anomalies.R index 28092625..23014cbd 100644 --- a/modules/Anomalies/Anomalies.R +++ b/modules/Anomalies/Anomalies.R @@ -89,8 +89,8 @@ compute_anomalies <- function(recipe, data) { recipe$Run$output_dir <- paste0(recipe$Run$output_dir, "/outputs/Anomalies/") # Save forecast - if (recipe$Analysis$Workflow$Anomalies$save %in% - c('all', 'exp_only', 'fcst_only')) { + if ((recipe$Analysis$Workflow$Anomalies$save %in% + c('all', 'exp_only', 'fcst_only')) && !is.null(data$fcst)) { save_forecast(recipe = recipe, data_cube = data$fcst, type = 'fcst') } # Save hindcast diff --git a/modules/Calibration/Calibration.R b/modules/Calibration/Calibration.R index dedfbd85..6a8fe103 100644 --- a/modules/Calibration/Calibration.R +++ b/modules/Calibration/Calibration.R @@ -166,8 +166,8 @@ calibrate_datasets <- function(recipe, data) { ## TODO: What do we do with the full values? recipe$Run$output_dir <- paste0(recipe$Run$output_dir, "/outputs/Calibration/") - if (recipe$Analysis$Workflow$Calibration$save %in% - c('all', 'exp_only', 'fcst_only')) { + if ((recipe$Analysis$Workflow$Calibration$save %in% + c('all', 'exp_only', 'fcst_only')) && (!is.null(data$fcst))) { save_forecast(recipe = recipe, data_cube = fcst_calibrated, type = 'fcst') } if (recipe$Analysis$Workflow$Calibration$save %in% -- GitLab