From a23ba79adf5d40680c49d44fdf9a980e8dda82b3 Mon Sep 17 00:00:00 2001
From: David <david.dorchies@inrae.fr>
Date: Tue, 31 Dec 2024 17:04:46 +0100
Subject: [PATCH] fix(serializeIniStates): handle IniStates even it's not a
list
Refs #179
---
R/utils.RunModel.R | 1 +
1 file changed, 1 insertion(+)
diff --git a/R/utils.RunModel.R b/R/utils.RunModel.R
index a881b67..56cc789 100644
--- a/R/utils.RunModel.R
+++ b/R/utils.RunModel.R
@@ -61,6 +61,7 @@ OutputsModelQsim <- function(InputsModel, OutputsModel, IndPeriod_Run) {
#' @noRd
#'
serializeIniStates <- function(IniStates, InputsModel) {
+ if (!is.list(IniStates)) return(IniStates)
ObjectClass <- class(InputsModel)
if (!"CemaNeige" %in% ObjectClass && any(is.na(IniStates$CemaNeigeLayers$G))) {
IniStates$CemaNeigeLayers$G <- NULL
--
GitLab