From 7bafba6b8c9f2954abe3d9c64468319eaede1af9 Mon Sep 17 00:00:00 2001
From: Delaigue Olivier <olivier.delaigue@irstea.fr>
Date: Fri, 30 Apr 2021 11:19:52 +0200
Subject: [PATCH] style(plot.OutputsModel): remove useless comments Refs #122
---
R/plot.OutputsModel.R | 17 -----------------
1 file changed, 17 deletions(-)
diff --git a/R/plot.OutputsModel.R b/R/plot.OutputsModel.R
index 914acc89..7074d79e 100644
--- a/R/plot.OutputsModel.R
+++ b/R/plot.OutputsModel.R
@@ -315,19 +315,6 @@ plot.OutputsModel <- function(x, Qobs = NULL, IndPeriod_Plot = NULL, BasinArea =
Xaxis <- as.POSIXct(OutputsModel$DatesR[IndPeriod_Plot])
- # Xaxis <- 1:length(IndPeriod_Plot)
- # if (BOOL_Dates) {
- # if (NameTS %in% c("hour", "day", "month")) {
- # Seq1 <- which(OutputsModel$DatesR[IndPeriod_Plot]$mday == 1 & OutputsModel$DatesR[IndPeriod_Plot]$mon %in% c(0, 3, 6, 9))
- # Seq2 <- which(OutputsModel$DatesR[IndPeriod_Plot]$mday == 1 & OutputsModel$DatesR[IndPeriod_Plot]$mon == 0)
- # Labels2 <- format(OutputsModel$DatesR[IndPeriod_Plot], format = formatAxis)[Seq2]
- # }
- # if (NameTS %in% c("year")) {
- # Seq1 <- 1:length(OutputsModel$DatesR[IndPeriod_Plot])
- # Seq2 <- 1:length(OutputsModel$DatesR[IndPeriod_Plot])
- # Labels2 <- format(OutputsModel$DatesR[IndPeriod_Plot], format = formatAxis)[Seq2]
- # }
- # }
if (!is.null(BasinArea)) {
Factor_UNIT_M3S <- switch(NameTS,
@@ -795,8 +782,6 @@ plot.OutputsModel <- function(x, Qobs = NULL, IndPeriod_Plot = NULL, BasinArea =
axis(side = 4, at = pretty(ylimQ*Factor)/Factor, labels = pretty(ylimQ*Factor), cex.axis = cex.axis, ...)
mtext(side = 4, paste("flow", "[m3/s]"), line = line, cex = cex.lab)
}
- ### posleg <- "topright"; if (BOOL_Pobs) {posleg <- "right";}
- ### legend(posleg, txtleg, col = colleg, lty = 1, lwd = lwdleg, bty = "o", bg = bg, box.col = bg, cex = cex.leg)
box()
}
}
@@ -915,7 +900,5 @@ plot.OutputsModel <- function(x, Qobs = NULL, IndPeriod_Plot = NULL, BasinArea =
}
}
- ## Restoring_layout_options
- # layout(1)
}
--
GitLab