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 Package: airGR
Type: Package Type: Package
Title: Suite of GR Hydrological Models for Precipitation-Runoff Modelling Title: Suite of GR Hydrological Models for Precipitation-Runoff Modelling
Version: 1.0.9.72 Version: 1.0.9.73
Date: 2018-01-30 Date: 2018-01-30
Authors@R: c( Authors@R: c(
person("Laurent", "Coron", role = c("aut", "trl")), person("Laurent", "Coron", role = c("aut", "trl")),
......
...@@ -131,7 +131,11 @@ plot.OutputsModel <- function(x, Qobs = NULL, IndPeriod_Plot = NULL, BasinArea = ...@@ -131,7 +131,11 @@ plot.OutputsModel <- function(x, Qobs = NULL, IndPeriod_Plot = NULL, BasinArea =
# if (Sum1 == 0 & Sum2 == 3) { width = 10; height = 03; } # if (Sum1 == 0 & Sum2 == 3) { width = 10; height = 03; }
# dev.new(width = width, height = height) # dev.new(width = width, height = height)
# } # }
layout(matlayout);
opar <- par(no.readonly = TRUE)
on.exit(par(opar))
layout(matlayout)
Xaxis <- 1:length(IndPeriod_Plot); Xaxis <- 1:length(IndPeriod_Plot);
if (BOOL_Dates) { 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