Corrected lapply comment in callbacks.R (#6967)

The comment was made false by the removal of the pipes.
2021-05-16 19:31:50 +01:00 · 2021-05-16 19:31:50 +01:00 · 42fc7ca6a0
commit 42fc7ca6a0
parent a4886c404a
1 changed files with 1 additions and 1 deletions
--- 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]]),