Commit 808a31b3 authored by unknown's avatar unknown
Browse files

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

parent 761254d5
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")),
......
......@@ -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) {
......
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