Hendrik/xgboost
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
James Lamb
2022-12-24 15:02:56 -06:00
committed by GitHub
parent f489d824ca
commit c7e82b5914
11 changed files with 13 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
R-package/R/xgb.plot.shap.R
View File

@@ -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))