Simplify list2mat call from lapply in callbacks.R (#6966)

This commit is contained in:
ReeceGoding 2021-05-13 20:40:58 +01:00 committed by GitHub
parent d245bc891e
commit f94f479358
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23

View File

@ -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
) )
} }
} }