style: add missing whitespaces in plot.OutputsModel

Resf #112

R/plot.OutputsModel.R

@@ -401,7 +401,7 @@ plot.OutputsModel <- function(x, Qobs = NULL, IndPeriod_Plot = NULL, BasinArea =
             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),
+             lty = c(1, 3), lwd = c(lwd * 1.0, lwd * 0.8),
              bty = "o", bg = bg, box.col = bg, cex = cex.leg)
     }
     axis(side = 2, at = pretty(ylim1), labels = pretty(ylim1), cex.axis = cex.axis, ...)
@@ -462,7 +462,7 @@ plot.OutputsModel <- function(x, Qobs = NULL, IndPeriod_Plot = NULL, BasinArea =
     mtext(side = 2, expression(paste("temp. [", degree, "C]"), sep = ""),  padj = 0.2, line = line, cex = cex.lab)
 
     legend("topright", legend = c("mean", "layers"), col = c("darkorchid4", "orchid"),
-           lty = c(1, 3), lwd = c(lwd*1.0, lwd*0.8),
+           lty = c(1, 3), lwd = c(lwd * 1.0, lwd * 0.8),
            bty = "o", bg = bg, box.col = bg, cex = cex.leg)
 
     AxisTS(OutputsModel)
@@ -488,13 +488,13 @@ plot.OutputsModel <- function(x, Qobs = NULL, IndPeriod_Plot = NULL, BasinArea =
     }
     plot(Xaxis, SnowPackLayerMean, type = "l", ylim = ylim1, lwd = lwd * lwdk *1.2, col = "royalblue", xlab = "", ylab = "", xaxt = "n", yaxt = "n", ...)
     for (iLayer in 1:NLayers) {
-      lines(Xaxis, OutputsModel$CemaNeigeLayers[[iLayer]]$SnowPack, lty = 3, col = "royalblue", lwd = lwd * lwdk *0.8)
+      lines(Xaxis, OutputsModel$CemaNeigeLayers[[iLayer]]$SnowPack, lty = 3, col = "royalblue", lwd = lwd * lwdk * 0.8)
     }
     axis(side = 2, at = pretty(ylim1), labels = pretty(ylim1), cex.axis = cex.axis, ...)
 
     mtext(side = 2, paste("snow pack", "[mm]"), line = line, cex = cex.lab)
     legend("topright", legend = c("mean", "layers"), col = c("royalblue", "royalblue"),
-           lty = c(1, 3), lwd = c(lwd*1.2, lwd*0.8),
+           lty = c(1, 3), lwd = c(lwd * 1.2, lwd * 0.8),
            bty = "o", bg = bg, box.col = bg, cex = cex.leg)
 
     AxisTS(OutputsModel)