Commit b388a845 authored by Delaigue Olivier's avatar Delaigue Olivier
Browse files

fix: use function to try to set local time in English in plot.OutputsModel

Refs 4f0f2fe5, #122
parent 4f0f2fe5
Pipeline #24975 passed with stages
in 9 minutes and 16 seconds
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment