v1.2.9.16 BUG: the X-axis of plot.OutputsModel now appears whith GR2M when the...

v1.2.9.16 BUG: the X-axis of plot.OutputsModel now appears whith GR2M when the dates of the time series are not the 1st of the month

DESCRIPTION

 Package: airGR
 Type: Package
 Title: Suite of GR Hydrological Models for Precipitation-Runoff Modelling
-Version: 1.2.9.15
+Version: 1.2.9.16
 Date: 2019-03-18
 Authors@R: c(
   person("Laurent", "Coron", role = c("aut", "trl"), comment = c(ORCID = "0000-0002-1503-6204")),

NEWS.rmd

@@ -13,7 +13,7 @@ output:
 
 
 
-### 1.2.9.15 Release Notes (2019-03-18) 
+### 1.2.9.16 Release Notes (2019-03-18) 
 
 
 

R/plot.OutputsModel.R

@@ -108,6 +108,9 @@ plot.OutputsModel <- function(x, Qobs = NULL, IndPeriod_Plot = NULL, BasinArea =
       NameTS <- "month"
       plotunit <- "[mm/month]"
       formatAxis <- "%m/%Y"
+      if (format(OutputsModel$DatesR[1L], format = "%d") != "01") {
+        OutputsModel$DatesR <- as.POSIXlt(format(OutputsModel$DatesR, format = "%Y-%m-01"), tz = "UTC", format = "%Y-%m-%d")
+      }
     }
     if (inherits(OutputsModel, "yearly") &
         TimeStep %in% (c(365, 366) * 24 * 60 * 60)) {