From a97df2a145c2854bee02c2249b87580ec73394b6 Mon Sep 17 00:00:00 2001 From: vagudets Date: Tue, 9 Apr 2024 14:50:52 +0200 Subject: [PATCH] Bugfix: save aggregated metrics properly for S2S4E format --- modules/Saving/R/save_metrics.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/modules/Saving/R/save_metrics.R b/modules/Saving/R/save_metrics.R index 9cd1fb0d..57063a0c 100644 --- a/modules/Saving/R/save_metrics.R +++ b/modules/Saving/R/save_metrics.R @@ -151,7 +151,7 @@ save_metrics <- function(recipe, country <- get_countries(grid) ArrayToNc(append(country, time, subset_metric), outfile) } else if (tolower(agg) == "region") { - region <- array(1:dim(skill[[1]])['region'], c(dim(skill[[1]])['region'])) + region <- array(1:dim(metrics[[1]])['region'], c(dim(metrics[[1]])['region'])) # TODO: check metadata when more than 1 region is store in the data array metadata <- list(region = list(long_name = data_cube$attrs$Variable$metadata$region$name)) attr(region, 'variables') <- metadata -- GitLab