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

R-package/R/xgb.ggplot.R

@@ -4,7 +4,7 @@
 #' @rdname xgb.plot.importance
 #' @export
 xgb.ggplot.importance <- function(importance_matrix = NULL, top_n = NULL, measure = NULL,
-                                  rel_to_first = FALSE, n_clusters = c(1:10), ...) {
+                                  rel_to_first = FALSE, n_clusters = seq_len(10), ...) {
 
   importance_matrix <- xgb.plot.importance(importance_matrix, top_n = top_n, measure = measure,
                                            rel_to_first = rel_to_first, plot = FALSE, ...)

R-package/R/xgb.plot.multi.trees.R

@@ -97,9 +97,9 @@ xgb.plot.multi.trees <- function(model, feature_names = NULL, features_keep = 5,
         , by = .(abs.node.position, Feature)
       ][, .(Text = paste0(
               paste0(
-                Feature[1:min(length(Feature), features_keep)],
+                Feature[seq_len(min(length(Feature), features_keep))],
                 " (",
-                format(Quality[1:min(length(Quality), features_keep)], digits = 5),
+                format(Quality[seq_len(min(length(Quality), features_keep))], digits = 5),
                 ")"
               ),
               collapse = "\n"

R-package/R/xgb.plot.shap.R

@@ -273,7 +273,7 @@ xgb.shap.data <- function(data, shap_contrib = NULL, features = NULL, top_n = 1,
     }
     top_n <- top_n[1]
     if (top_n < 1 | top_n > 100) stop("top_n: must be an integer within [1, 100]")
-    features <- imp$Feature[1:min(top_n, NROW(imp))]
+    features <- imp$Feature[seq_len(min(top_n, NROW(imp)))]
   }
   if (is.character(features)) {
     features <- match(features, colnames(data))

R-package/R/xgb.train.R

@@ -389,7 +389,7 @@ xgb.train <- function(params = list(), data, nrounds, watchlist = list(),
     xgb.iter.update(bst$handle, dtrain, iteration - 1, obj)
 
     if (length(watchlist) > 0)
-      bst_evaluation <- xgb.iter.eval(bst$handle, watchlist, iteration - 1, feval)
+      bst_evaluation <- xgb.iter.eval(bst$handle, watchlist, iteration - 1, feval)  # nolint: object_usage_linter
 
     xgb.attr(bst$handle, 'niter') <- iteration - 1
 

R-package/demo/interaction_constraints.R

@@ -33,7 +33,7 @@ treeInteractions <- function(input_tree, input_max_depth) {
   }
 
   # Extract nodes with interactions
-  interaction_trees <- trees[!is.na(Split) & !is.na(parent_1),
+  interaction_trees <- trees[!is.na(Split) & !is.na(parent_1),  # nolint: object_usage_linter
                              c('Feature', paste0('parent_feat_', 1:(input_max_depth - 1))),
                              with = FALSE]
   interaction_trees_split <- split(interaction_trees, seq_len(nrow(interaction_trees)))

R-package/man/xgb.plot.importance.Rd

@@ -10,7 +10,7 @@ xgb.ggplot.importance(
   top_n = NULL,
   measure = NULL,
   rel_to_first = FALSE,
-  n_clusters = c(1:10),
+  n_clusters = seq_len(10),
   ...
 )