fix(serializeIniStates): handle IniStates even it's not a list

Refs #179

fix(serializeIniStates): handle IniStates even it's not a list
Refs #179
a23ba79a · David · 72099683 · a23ba79a
Commit a23ba79a authored 3 months ago by David
Hide whitespace changes
Inline Side-by-side

Showing

with 1 addition and 0 deletions
+1 -0
--- 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