refactor(plot.OutputsModel): display x-axis labels in English language

Refs #122

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