From c46e8f10fe45a5702e755fff43b6d00c28fcbe33 Mon Sep 17 00:00:00 2001
From: David <david.dorchies@inrae.fr>
Date: Wed, 27 Mar 2024 15:10:13 +0100
Subject: [PATCH] fix: crash of calcOverAbstraction with Warmup of
RunModelSupervisor
Refs #144
---
R/RunModel.InputsModel.R | 10 ++++++----
1 file changed, 6 insertions(+), 4 deletions(-)
diff --git a/R/RunModel.InputsModel.R b/R/RunModel.InputsModel.R
index 1c41fc9..538c18c 100644
--- a/R/RunModel.InputsModel.R
+++ b/R/RunModel.InputsModel.R
@@ -160,10 +160,12 @@ calcOverAbstraction <- function(O, WarmUp) {
if(WarmUp) {
f <- lapply(f, function(x) paste0("WarmUp", x))
}
- if (any(O[[f$sim]] < 0)) {
- O[[f$over]] <- rep(0, length(O[[f$sim]]))
- O[[f$over]][O[[f$sim]] < 0] <- - O[[f$sim]][O[[f$sim]] < 0]
- O[[f$sim]][O[[f$sim]] < 0] <- 0
+ if (!is.null(O[[f$sim]])) {
+ if (any(O[[f$sim]] < 0)) {
+ O[[f$over]] <- rep(0, length(O[[f$sim]]))
+ O[[f$over]][O[[f$sim]] < 0] <- - O[[f$sim]][O[[f$sim]] < 0]
+ O[[f$sim]][O[[f$sim]] < 0] <- 0
+ }
}
return(O)
}
--
GitLab