style(plot.OutputsModel): remove useless comments

Refs #122

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)
 
 }