Commit b9ddea7c authored by Delaigue Olivier's avatar Delaigue Olivier
Browse files

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
parent cf55311b
Pipeline #32475 passed with stage
in 6 minutes and 3 seconds
......@@ -2,6 +2,6 @@ SeriesAggreg.OutputsModel <- function(x, Format, ...) {
SeriesAggreg.list(x,
Format,
ConvertFun = NA,
except = c("WarmUpQsim", "StateEnd", "Param"),
except = c("RunOptions", "StateEnd"),
...)
}
  • She warning message is stil returned. See #137 (comment 54516)

  • 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")]
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment