From 808a31b3783310a279839ac6952c655bf0dd2db2 Mon Sep 17 00:00:00 2001
From: unknown <olivier.delaigue@ANPI1430.antony.irstea.priv>
Date: Tue, 30 Jan 2018 13:55:29 +0100
Subject: [PATCH] v1.0.9.73 graphical parameters recorded and executed when the
plot.OutputsModel function exits
---
DESCRIPTION | 2 +-
R/plot.OutputsModel.R | 6 +++++-
2 files changed, 6 insertions(+), 2 deletions(-)
diff --git a/DESCRIPTION b/DESCRIPTION
index a86f8377..7b08b8ae 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -1,7 +1,7 @@
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")),
diff --git a/R/plot.OutputsModel.R b/R/plot.OutputsModel.R
index 66ef22c1..bb8163f0 100644
--- a/R/plot.OutputsModel.R
+++ b/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) {
--
GitLab