v1.0.6.9 butt line end style for precipitation plot in plot.OutputsModel

DESCRIPTION

 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")),

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, ...)