fix: correct the default values of the 'except' argument of the...

fix: correct the default values of the 'except' argument of the 'SeriesAggreg.OutputsModel' function
Refs 137, !58, ede467bb

R/SeriesAggreg.OutputsModel.R

@@ -2,6 +2,6 @@ SeriesAggreg.OutputsModel <- function(x, Format, ...) {
   SeriesAggreg.list(x,
                     Format,
                     ConvertFun = NA,
-                    except = c("WarmUpQsim", "StateEnd", "Param"),
+                    except = c("RunOptions", "StateEnd"),
                     ...)
 }

[Delaigue Olivier]

She warning message is stil returned. See #137 (comment 54516)

[Delaigue Olivier]

It works with "StateEnd" and not with "RunOptions" because StateEnd is a list with specific classes, which is not the case of RunOptions which a simple list.

$RunOptions
[1] "list"

$StateEnd
[1] "IniStates" "monthly"   "GR"       

inherits(OutputsModel$RunOptions, "list")
[1] TRUE

inherits(OutputsModel$StateEnd, "list")
[1] FALSE

In SeriesAggreg.list, the code line is:

listCols <- x[sapply(x, inherits, "list")]