refactor(pot.OutputsModel): replace the use of 'if' by 'else if' in order to check the time step

Resf #122

refactor(pot.OutputsModel): replace the use of 'if' by 'else if' in order to check the time step
Resf #122
1a28e685 · Delaigue Olivier · a20a45c9 · 1a28e685
Commit 1a28e685 authored 3 years ago by Delaigue Olivier
Hide whitespace changes
Inline Side-by-side

Showing

with 3 additions and 6 deletions
+3 -6
--- a/R/plot.OutputsModel.R
+++ b/R/plot.OutputsModel.R
@@ -168,18 +168,15 @@ plot.OutputsModel <- function(x, Qobs = NULL, IndPeriod_Plot = NULL, BasinArea =
      BOOL_TS <- TRUE
      NameTS <- "hour"
      plotunit <- "[mm/h]"
-    }
-    if (inherits(OutputsModel, "daily")) {
+    } else if (inherits(OutputsModel, "daily")) {
      BOOL_TS <- TRUE
      NameTS <- "day"
      plotunit <- "[mm/d]"
-    }
-    if (inherits(OutputsModel, "monthly")) {
+    } else if (inherits(OutputsModel, "monthly")) {
      BOOL_TS <- TRUE
      NameTS <- "month"
      plotunit <- "[mm/month]"
-    }
-    if (inherits(OutputsModel, "yearly")) {
+    } else if (inherits(OutputsModel, "yearly")) {
      BOOL_TS <- TRUE
      NameTS <- "year"
      plotunit <- "[mm/y]"