From f94f479358acc951ef00b809ed2286afd74d02b1 Mon Sep 17 00:00:00 2001
From: ReeceGoding <67124261+ReeceGoding@users.noreply.github.com>
Date: Thu, 13 May 2021 20:40:58 +0100
Subject: [PATCH] Simplify list2mat call from lapply in callbacks.R (#6966)

---
 R-package/R/callbacks.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R-package/R/callbacks.R b/R-package/R/callbacks.R
index 2c1b2ecaa..eb395a8d1 100644
--- a/R-package/R/callbacks.R
+++ b/R-package/R/callbacks.R
@@ -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
       )
     }
   }