From 24b507774ecac323fdd4fec460434acc94483292 Mon Sep 17 00:00:00 2001
From: Delaigue Olivier <olivier.delaigue@irstea.fr>
Date: Wed, 14 Jul 2021 08:34:13 +0200
Subject: [PATCH] style: indent plot.OutputsModel code Resf #112
---
R/plot.OutputsModel.R | 10 +++++-----
1 file changed, 5 insertions(+), 5 deletions(-)
diff --git a/R/plot.OutputsModel.R b/R/plot.OutputsModel.R
index b930f94f..568c2187 100644
--- a/R/plot.OutputsModel.R
+++ b/R/plot.OutputsModel.R
@@ -363,9 +363,9 @@ 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)
points(Xaxis, PsolLayerMean,
- type = "h", xaxt = "n", yaxt = "n", yaxs = "i", ylim = ylim2,
- col = "lightblue", lwd = lwdP * lwdk, lend = 1,
- xlab = "", ylab = "", ...)
+ type = "h", xaxt = "n", yaxt = "n", yaxs = "i", ylim = ylim2,
+ col = "lightblue", lwd = lwdP * lwdk, lend = 1,
+ xlab = "", ylab = "", ...)
}
AxisTS(OutputsModel)
@@ -398,8 +398,8 @@ plot.OutputsModel <- function(x, Qobs = NULL, IndPeriod_Plot = NULL, BasinArea =
xlab = "", ylab = "", ...)
if (BOOLPLOT_ActuEvap) {
lines(Xaxis, OutputsModel$AE,
- type = "l", xaxt = "n", yaxt = "n", ylim = ylim2,
- col = "green4", lwd = lwd * lwdk, lty = 3)
+ type = "l", xaxt = "n", yaxt = "n", ylim = ylim2,
+ col = "green4", lwd = lwd * lwdk, lty = 3)
legend("topright", legend = c("pot.", "actu."), col = c("green3", "green4"),
lty = c(1, 3), lwd = c(lwd*1.0, lwd*0.8),
bty = "o", bg = bg, box.col = bg, cex = cex.leg)
--
GitLab