v1.6.9.6 refactor: replace lapply by NextMethod to classicaly extract elements...

v1.6.9.6 refactor: replace lapply by NextMethod to classicaly extract elements with '['.InputsModel and '['.OutputsModel Refs #67

v1.6.9.6 refactor: replace lapply by NextMethod to classicaly extract elements...
v1.6.9.6 refactor: replace lapply by NextMethod to classicaly extract elements with '['.InputsModel and '['.OutputsModel Refs #67
cb746f9e · Delaigue Olivier · 6f438158 · cb746f9e · cb746f9e · cb746f9e
Commit cb746f9e authored 4 years ago by Delaigue Olivier
Hide whitespace changes
Inline Side-by-side

Showing

with 6 additions and 10 deletions
+6 -10
--- a/DESCRIPTION
+++ b/DESCRIPTION
 Package: airGR
 Type: Package
 Title: Suite of GR Hydrological Models for Precipitation-Runoff Modelling
-Version: 1.6.9.5
+Version: 1.6.9.6
 Date: 2021-01-08
 Authors@R: c(
  person("Laurent", "Coron", role = c("aut", "trl"), comment = c(ORCID = "0000-0002-1503-6204")),

--- a/NEWS.md
+++ b/NEWS.md
@@ -2,7 +2,7 @@
-### 1.6.9.5 Release Notes (2021-01-08)
+### 1.6.9.6 Release Notes (2021-01-08)
 #### New features

--- a/R/Utils.R
+++ b/R/Utils.R
@@ -113,12 +113,10 @@
    i <- as.character(i)
  }
  if (is.numeric(i)) {
-    res <- .ExtractInputsModel(x, i)
+    .ExtractInputsModel(x, i)
  } else {
-    res <- lapply(i, function(name) x[[name, exact = TRUE]])
+    NextMethod()
-    names(res) <- i
  }
-  return(res)
 }
@@ -161,10 +159,8 @@
    i <- as.character(i)
  }
  if (is.numeric(i)) {
-    res <- .ExtractOutputsModel(x, i)
+    .ExtractOutputsModel(x, i)
  } else {
-    res <- lapply(i, function(name) x[[name, exact = TRUE]])
+    NextMethod()
-    names(res) <- i
  }
-  return(res)
 }