v0.1.8.5 bug fixed in ObsGR when input data are defined by vectors #5010

DESCRIPTION

 Package: airGRteaching
 Type: Package
 Title: Tools to Simplify the Use of the airGR Hydrological Package for Education (Including a Shiny Interface)
-Version: 0.1.8.4
-Date: 2017-10-31
+Version: 0.1.8.5
+Date: 2017-11-21
 Authors@R: c(person("Olivier", "Delaigue", role = c("aut", "cre"), email = "airGR@irstea.fr"), person("Laurent", "Coron", role = c("aut")), person("Pierre", "Brigode", role = c("aut")), person("Guillaume", "Thirel", role = c("ctb")))
 Depends: airGR (>= 1.0.9.43)
 Imports: xts, dygraphs (>= 1.1.1.4), shiny, shinyjs, plotrix, markdown

R/ObsGR.R

@@ -7,8 +7,10 @@ ObsGR <- function(ObsBV = NULL, DatesR = NULL, Precip = NULL, PotEvap = NULL, Qo
     stop("Missing input data")
   }
 
-  if (ncol(ObsBV) >= 5) {
-    TempMean <- ObsBV[, 5L]
+  if (!is.null(ObsBV)) {
+    if (ncol(ObsBV) >= 5) {
+      TempMean <- ObsBV[, 5L]
+    }
   }
   if (!is.null(TempMean)) {
     TempMean <- TempMean