fix: error on CreateInputsModel with node RunModel_Lag and area=NA

Refs #107

fix: error on CreateInputsModel with node RunModel_Lag and area=NA
Refs #107
c56f457d · David · fc8ebff9 · c56f457d
Commit c56f457d authored 2 years ago by David
Hide whitespace changes
Inline Side-by-side

Showing

with 7 additions and 5 deletions
+7 -5
--- a/R/CreateInputsModel.GRiwrm.R
+++ b/R/CreateInputsModel.GRiwrm.R
@@ -278,11 +278,13 @@ CreateOneGRiwrmInputsModel <- function(id, griwrm, ..., Qobs, Qmin) {
        griwrm$area[UpstreamNodeRows],
        node$area - sum(griwrm$area[UpstreamNodeRows], na.rm = TRUE)
    )
-    if (BasinAreas[length(BasinAreas)] < 0) {
+    if (!is.na(node$area)) {
-      stop(sprintf(
+      if (BasinAreas[length(BasinAreas)] < 0) {
-        "Area of the catchment %s must be greater than the sum of the areas of its upstream catchments",
+        stop(sprintf(
-        id
+          "Area of the catchment %s must be greater than the sum of the areas of its upstream catchments",
-      ))
+          id
+        ))
+      }
    }
    names(BasinAreas) <- c(griwrm$id[UpstreamNodeRows], id)
  }