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

Refs 4f0f2fe5, #122

fix: use function to try to set local time in English in plot.OutputsModel
Refs 4f0f2fe5, #122
b388a845 · Delaigue Olivier · 4f0f2fe5 · b388a845
Commit b388a845 authored 3 years ago by Delaigue Olivier
Hide whitespace changes
Inline Side-by-side

Showing

with 1 addition and 1 deletion
+1 -1
--- 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)