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]]),
|
||||
FUN = function(i) lapply(coefs, "[[", i)
|
||||
),
|
||||
FUN = function(x) list2mat(x)
|
||||
FUN = list2mat
|
||||
)
|
||||
}
|
||||
}
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user