style: indent plot.OutputsModel code

Resf #112

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)