From 0e8683dcd2005e11f12682f3c60673fbed28e736 Mon Sep 17 00:00:00 2001 From: PALOMA TRASCASA CASTRO Date: Wed, 15 Nov 2023 15:49:24 +0100 Subject: [PATCH] Updated the lubridates:: function adding locale = en_GB , asking to choose English --- modules/Visualization/R/plot_skill_metrics.R | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/modules/Visualization/R/plot_skill_metrics.R b/modules/Visualization/R/plot_skill_metrics.R index 2698d499..b4c2b273 100644 --- a/modules/Visualization/R/plot_skill_metrics.R +++ b/modules/Visualization/R/plot_skill_metrics.R @@ -38,7 +38,7 @@ plot_skill_metrics <- function(recipe, data_cube, skill_metrics, # Get months months <- lubridate::month(Subset(data_cube$attrs$Dates, "syear", indices = 1), - label = T, abb = F) + label = T, abb = F,locale = "en_GB") if (!is.null(recipe$Analysis$Workflow$Visualization$projection)) { projection <- tolower(recipe$Analysis$Workflow$Visualization$projection) } else { @@ -214,6 +214,7 @@ plot_skill_metrics <- function(recipe, data_cube, skill_metrics, for (i in 1:dim(skill)[['time']]) { # Get forecast time label forecast_time <- match(months[i], month.name) - init_month + 1 + if (forecast_time < 1) { forecast_time <- forecast_time + 12 } -- GitLab