[R] enforce lintr checks (fixes #8012) (#8613)

2022-12-24 15:02:56 -06:00
parent f489d824ca
commit c7e82b5914
11 changed files with 13 additions and 15 deletions
--- a/demo/kaggle-higgs/speedtest.R
+++ b/demo/kaggle-higgs/speedtest.R
@@ -26,7 +26,7 @@ print(paste("weight statistics: wpos=", sumwpos, "wneg=", sumwneg, "ratio=", sum

 xgboost.time <- list()
 threads <- c(1, 2, 4, 8, 16)
-for (i in 1:length(threads)){
+for (i in seq_along(threads)){
  thread <- threads[i]
  xgboost.time[[i]] <- system.time({
    xgmat <- xgb.DMatrix(data, label = label, weight = weight, missing = -999.0)