From 733da33edbb524aabb7043f0e79bb69ad14da309 Mon Sep 17 00:00:00 2001
From: unknown <olivier.delaigue@ANPI1430.antony.irstea.priv>
Date: Wed, 5 Apr 2017 16:26:13 +0200
Subject: [PATCH] v1.0.6.9 butt line end style for precipitation plot in
plot.OutputsModel
---
DESCRIPTION | 2 +-
R/plot.OutputsModel.R | 8 +++++---
2 files changed, 6 insertions(+), 4 deletions(-)
diff --git a/DESCRIPTION b/DESCRIPTION
index 0171a3ed..fef240b2 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.6.8
+Version: 1.0.6.9
Date: 2017-04-05
Authors@R: c(
person("Laurent", "Coron", role = c("aut", "trl")),
diff --git a/R/plot.OutputsModel.R b/R/plot.OutputsModel.R
index 9261b1dd..7146e196 100644
--- a/R/plot.OutputsModel.R
+++ b/R/plot.OutputsModel.R
@@ -176,7 +176,7 @@ plot.OutputsModel <- function(x, Qobs = NULL, IndPeriod_Plot = NULL, BasinArea =
}
plot(Xaxis, OutputsModel$Precip[IndPeriod_Plot],
type = "h", xaxt = "n", yaxt = "n", yaxs = "i", ylim = ylim2,
- col = "royalblue", lwd = lwdP * lwdk,
+ col = "royalblue", lwd = lwdP * lwdk, lend = 1,
xlab = "", ylab = "", ...)
axis(side = 2, at = pretty(ylim1), labels = pretty(ylim1), cex.axis = cex.axis, ...)
par(las = 0)
@@ -188,8 +188,10 @@ plot.OutputsModel <- function(x, Qobs = NULL, IndPeriod_Plot = NULL, BasinArea =
col = c("lightblue", "royalblue"), lty = c(1, 1), lwd = c(lwd, lwd),
bty = "o", bg = bg, box.col = bg, cex = cex.leg)
par(new = TRUE)
- plot(Xaxis, PsolLayerMean[IndPeriod_Plot], type = "h", xaxt = "n", yaxt = "n", yaxs = "i",
- ylim = ylim2, col = "lightblue", lwd = lwdP * lwdk, xlab = "", ylab = "", ...)
+ plot(Xaxis, PsolLayerMean[IndPeriod_Plot],
+ type = "h", xaxt = "n", yaxt = "n", yaxs = "i", ylim = ylim2,
+ col = "lightblue", lwd = lwdP * lwdk, lend = 1,
+ xlab = "", ylab = "", ...)
}
if (BOOL_Dates) {
axis(side = 1, at = Seq1, labels = FALSE, cex.axis = cex.axis, ...)
--
GitLab