[R] address some lintr warnings (#8609)
This commit is contained in:
@@ -404,7 +404,7 @@ test_that("Configuration works", {
|
||||
config <- xgb.config(bst)
|
||||
xgb.config(bst) <- config
|
||||
reloaded_config <- xgb.config(bst)
|
||||
expect_equal(config, reloaded_config);
|
||||
expect_equal(config, reloaded_config)
|
||||
})
|
||||
|
||||
test_that("strict_shape works", {
|
||||
|
||||
@@ -53,7 +53,7 @@ test_that("xgb.DMatrix: saving, loading", {
|
||||
dtrain <- xgb.DMatrix(tmp_file)
|
||||
expect_equal(colnames(dtrain), cnames)
|
||||
|
||||
ft <- rep(c("c", "q"), each=length(cnames)/2)
|
||||
ft <- rep(c("c", "q"), each = length(cnames) / 2)
|
||||
setinfo(dtrain, "feature_type", ft)
|
||||
expect_equal(ft, getinfo(dtrain, "feature_type"))
|
||||
})
|
||||
|
||||
@@ -440,7 +440,7 @@ test_that("xgb.plot.shap.summary works", {
|
||||
})
|
||||
|
||||
test_that("check.deprecation works", {
|
||||
ttt <- function(a = NNULL, DUMMY=NULL, ...) {
|
||||
ttt <- function(a = NNULL, DUMMY = NULL, ...) {
|
||||
check.deprecation(...)
|
||||
as.list((environment()))
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user