From f5ab8027847b622745a0d5588dbd5c04bac55827 Mon Sep 17 00:00:00 2001 From: Nuria Perez Zanon Date: Tue, 3 Jun 2025 17:30:50 +0200 Subject: [PATCH] psl units removed and length solved --- modules/Scorecards/R/tmp/ScorecardsMulti.R | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) diff --git a/modules/Scorecards/R/tmp/ScorecardsMulti.R b/modules/Scorecards/R/tmp/ScorecardsMulti.R index 85630239..d2812a9d 100644 --- a/modules/Scorecards/R/tmp/ScorecardsMulti.R +++ b/modules/Scorecards/R/tmp/ScorecardsMulti.R @@ -148,7 +148,7 @@ ScorecardsMulti <- function(data, sign, system, reference, var, var.units, system.name1 <- sys_dict$System[[system[sys]]]$name system.name <- c(system.name, system.name1) } - for(ref in 1:length(length)){ + for(ref in 1:length(reference)) { reference.name1 <- sys_dict$Reference[[reference[ref]]]$name reference.name <- c(reference.name, reference.name1) } @@ -207,9 +207,6 @@ ScorecardsMulti <- function(data, sign, system, reference, var, var.units, ## Find position of mean bias metric to calculate breaks if ('mean_bias' %in% metrics) { pos_bias <- which(metrics == 'mean_bias') - if(var == 'psl'){ - data[,,pos_bias,,,] <- data[,,pos_bias,,,]/100 ## temporary - } breaks_bias <- .SCBiasBreaks(Subset(data, along = c('metric','region'), indices = list(pos_bias,reg))) } @@ -244,7 +241,7 @@ ScorecardsMulti <- function(data, sign, system, reference, var, var.units, sign_sc_9 <- NULL } } - + VizScorecard(data = data_sc_9, sign = sign_sc_9, row_dim = model, -- GitLab