Resolve "Add '['.InputsModel and '['.OutputsModel functions"

Closes #67 (closed)

R/Utils.R

@@ -88,7 +88,7 @@
 .ExtractInputsModel <- function(x, i) {
   res <- lapply(x, function(x) {
     if (is.matrix(x)) {
-      res0 <- x[i, ]
+      res0 <- x[i, , drop = FALSE]
     }
     if (is.vector(x) | inherits(x, "POSIXt")) {
       res0 <- x[i]
@@ -105,6 +105,10 @@
   if (!is.null(x$ZLayers)) {
     res$ZLayers <- x$ZLayers
   }
+  if (inherits(x, "SD")) {
+    res$LengthHydro <- x$LengthHydro
+    res$BasinAreas  <- x$BasinAreas
+  }
   class(res) <- class(x)
   res
 }

DESCRIPTION

 Package: airGR
 Type: Package
 Title: Suite of GR Hydrological Models for Precipitation-Runoff Modelling
-Version: 1.6.9.7
+Version: 1.6.9.8
 Date: 2021-01-08
 Authors@R: c(
   person("Laurent", "Coron", role = c("aut", "trl"), comment = c(ORCID = "0000-0002-1503-6204")),

NEWS.md

@@ -2,7 +2,7 @@
 
 
 
-### 1.6.9.7 Release Notes (2021-01-08)
+### 1.6.9.8 Release Notes (2021-01-08)
 
 #### New features