diff --git a/modules/Visualization/R/plot_skill_metrics.R b/modules/Visualization/R/plot_skill_metrics.R index 2698d499b13f58dff2eabacbaacb7614eb214298..b4c2b273dffb70f3d413b33b9575b0c7e1662bc6 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 }