v1.0.9.73 graphical parameters recorded and executed when the plot.OutputsModel function exits

DESCRIPTION

 Package: airGR
 Type: Package
 Title: Suite of GR Hydrological Models for Precipitation-Runoff Modelling
-Version: 1.0.9.72
+Version: 1.0.9.73
 Date: 2018-01-30
 Authors@R: c(
   person("Laurent", "Coron", role = c("aut", "trl")),

R/plot.OutputsModel.R

@@ -131,7 +131,11 @@ plot.OutputsModel <- function(x, Qobs = NULL, IndPeriod_Plot = NULL, BasinArea =
     #   if (Sum1 == 0 & Sum2 == 3) { width = 10; height = 03; }
     #   dev.new(width = width, height = height)
     # }
-    layout(matlayout);
+    
+    opar <- par(no.readonly = TRUE)
+    on.exit(par(opar))
+    
+    layout(matlayout)
 
     Xaxis <- 1:length(IndPeriod_Plot);
     if (BOOL_Dates) {