From 7f0eb0dce4352acb8410eeaed1b1a9bab199ab4e Mon Sep 17 00:00:00 2001
From: Delaigue Olivier <olivier.delaigue@irstea.fr>
Date: Fri, 30 Apr 2021 12:15:59 +0200
Subject: [PATCH] refactor(plot.OutputsModel): display x-axis labels in English
language Refs #122
---
R/plot.OutputsModel.R | 10 ++++++++--
1 file changed, 8 insertions(+), 2 deletions(-)
diff --git a/R/plot.OutputsModel.R b/R/plot.OutputsModel.R
index 438b6e9a..91a7504a 100644
--- a/R/plot.OutputsModel.R
+++ b/R/plot.OutputsModel.R
@@ -5,9 +5,15 @@ plot.OutputsModel <- function(x, Qobs = NULL, IndPeriod_Plot = NULL, BasinArea =
verbose = TRUE, ...) {
- ## save default graphical parameters and resetting on exit
+ ## save default graphical & time parameters and resetting on exit
opar <- par(no.readonly = TRUE)
- on.exit(par(opar))
+ olctime <- Sys.getlocale(category = "LC_TIME")
+ Sys.setlocale(category = "LC_TIME", locale = "English_United Kingdom")
+ on.exit({
+ par(opar)
+ Sys.setlocale(category = "LC_TIME", locale = olctime)
+ })
+
OutputsModel <- x
--
GitLab