Commit 2a169244 authored by Delaigue Olivier's avatar Delaigue Olivier
Browse files

fix: remove the 'except' elements from list elements of OutputsModel where...

fix: remove the 'except' elements from list elements of OutputsModel where SeriesAggreg is recursively applied
Refs #137, !58, ede467bb
parent b9ddea7c
Pipeline #32481 passed with stage
in 5 minutes and 8 seconds
......@@ -100,7 +100,8 @@ SeriesAggreg.list <- function(x,
# Exploration of embedded lists and data.frames
if (is.null(recursive) || recursive) {
listCols <- x[sapply(x, inherits, "list")]
listCols <- x[!names(x) %in% except]
listCols <- listCols[sapply(listCols, inherits, "list")]
dfCols <- x[sapply(x, inherits, "data.frame")]
dfCols <- c(dfCols, x[sapply(x, inherits, "matrix")])
listCols <- listCols[setdiff(names(listCols), names(dfCols))]
......
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