Simplify list2mat call from lapply in callbacks.R (#6966)
This commit is contained in:
parent
d245bc891e
commit
f94f479358
@ -647,7 +647,7 @@ cb.gblinear.history <- function(sparse=FALSE) {
|
|||||||
X = seq_along(coefs[[1]]),
|
X = seq_along(coefs[[1]]),
|
||||||
FUN = function(i) lapply(coefs, "[[", i)
|
FUN = function(i) lapply(coefs, "[[", i)
|
||||||
),
|
),
|
||||||
FUN = function(x) list2mat(x)
|
FUN = list2mat
|
||||||
)
|
)
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|||||||
Loading…
x
Reference in New Issue
Block a user