[R] [CI] use lintr 3.1.0 (#9456)

2023-08-10 04:49:16 -05:00
parent 1caa93221a
commit 4359356d46
5 changed files with 16 additions and 8 deletions
--- a/R-package/R/xgb.plot.deepness.R
+++ b/R-package/R/xgb.plot.deepness.R
@@ -136,7 +136,7 @@ get.leaf.depth <- function(dt_tree) {
    # list of paths to each leaf in a tree
    paths <- lapply(paths_tmp$vpath, names)
    # combine into a resulting path lengths table for a tree
-    data.table(Depth = sapply(paths, length), ID = To[Leaf == TRUE])
+    data.table(Depth = lengths(paths), ID = To[Leaf == TRUE])
  }, by = Tree]
 }