From 42fc7ca6a016ff8f9ed62043e259af4b95e6f057 Mon Sep 17 00:00:00 2001
From: ReeceGoding <67124261+ReeceGoding@users.noreply.github.com>
Date: Sun, 16 May 2021 19:31:50 +0100
Subject: [PATCH] Corrected lapply comment in callbacks.R (#6967)

The comment was made false by the removal of the pipes.
---
 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 eb395a8d1..7c0df2f1d 100644
--- a/R-package/R/callbacks.R
+++ b/R-package/R/callbacks.R
@@ -641,7 +641,7 @@ cb.gblinear.history <- function(sparse=FALSE) {
     if (!is.null(env$bst)) { # # xgb.train:
       coefs <<- list2mat(coefs)
     } else { # xgb.cv:
-      # first lapply transposes the list
+      # second lapply transposes the list
       coefs <<- lapply(
         X = lapply(
           X = seq_along(coefs[[1]]),