From b388a84576ad93178fd0833bbcd283313e887f8c Mon Sep 17 00:00:00 2001
From: Delaigue Olivier <olivier.delaigue@irstea.fr>
Date: Wed, 14 Jul 2021 07:41:06 +0200
Subject: [PATCH] fix: use function to try to set local time in English in
plot.OutputsModel Refs 4f0f2fe5, #122
---
R/plot.OutputsModel.R | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/R/plot.OutputsModel.R b/R/plot.OutputsModel.R
index 5fb55f75..c11dc5b8 100644
--- a/R/plot.OutputsModel.R
+++ b/R/plot.OutputsModel.R
@@ -8,7 +8,7 @@ plot.OutputsModel <- function(x, Qobs = NULL, IndPeriod_Plot = NULL, BasinArea =
## save default graphical & time parameters and resetting on exit
opar <- par(no.readonly = TRUE)
olctime <- Sys.getlocale(category = "LC_TIME")
- Sys.setlocale(category = "LC_TIME", locale = "English_United Kingdom")
+ suppressWarnings(.TrySetLcTimeEN())
on.exit({
par(opar)
Sys.setlocale(category = "LC_TIME", locale = olctime)
--
GitLab