Some test fixes (#2821)

Co-authored-by: pre-commit-ci[bot] <66853113+pre-commit-ci[bot]@users.noreply.github.com>

Author: pat-s

.pre-commit-config.yaml

@@ -2,10 +2,12 @@
 # R specific hooks: https://github.com/lorenzwalthert/precommit
 repos:
 -   repo: https://github.com/lorenzwalthert/precommit
-    rev: v0.2.0
+    rev: v0.2.2.9004
     hooks:
     -   id: style-files
         args: [--style_pkg=styler.mlr, --style_fun=mlr_style]
+        additional_dependencies:
+        - mlr-org/styler.mlr
     -   id: roxygenize
     -   id: use-tidy-description
     # -   id: spell-check

DESCRIPTION

@@ -188,7 +188,7 @@ VignetteBuilder:
 ByteCompile: yes
 Config/testthat/edition: 3
 Config/testthat/parallel: true
-Config/testthat/start-first: base_generateHyperParsEffect,
+Config/testthat/start-first: featsel_plotFilterValues,base_plotResiduals,base_generateHyperParsEffect,
     classif_bartMachine, tune_tuneIrace, featsel_filters, learners_all*,
     regr_h2ogbm
 Encoding: UTF-8

R/generateHyperParsEffect.R

@@ -81,7 +81,7 @@ generateHyperParsEffectData = function(tune.result, include.diagnostics = FALSE,
     }
     for (hyp in 1:num.hypers) {
       if (!is.numeric(d[, hyp])) {
-        d[, hyp] = type.convert(as.character(d[, hyp]))
+        d[, hyp] = suppressWarnings(type.convert(as.character(d[, hyp])))
       }
     }
     # rename to be clear this denotes the nested cv

R/selectFeatures.R

@@ -108,8 +108,8 @@ selectFeatures = function(learner, task, resampling, measures,
   or = sel.func(learner, task, resampling, measures, bit.names,
     bits.to.features2, control, opt.path, show.info)
   if (show.info) {
-    messagef("[FeatSel] Result: %s (%i bits)",
-      clipString(collapse(or$x.bit.names), 30L), length(or$x.bit.names), perfsToString(or$y))
+    suppressWarnings(messagef("[FeatSel] Result: %s (%i bits)",
+      clipString(collapse(or$x.bit.names), 30L), length(or$x.bit.names), perfsToString(or$y)))
   }
   return(or)
 }

addon/convert_to_ascii_news.sh

@@ -5,4 +5,3 @@
 # Part 5: Remove all level 1 headers
 
 sed -e '/^##/ s/$/:/' -e 's/^*/ */' -e 's/^## *//' -e "/^#/a\\--------------------------------------------------------------------------------" -e 's/^# *//' < NEWS.md > NEWS
-

inst/examples/MultilabelWrapper.R

@@ -12,4 +12,3 @@ performance(pred, measure = list(multilabel.hamloss, multilabel.subset01, multil
 # the next call basically has the same structure for any multilabel meta wrapper
 getMultilabelBinaryPerformances(pred, measures = list(mmce, auc))
 # above works also with predictions from resample!
-

man-roxygen/arg_bmr_learnerids.R

@@ -2,4 +2,3 @@
 #'   Restrict result to certain learners.
 #'   Default is all.
 #' @md
-

man-roxygen/arg_bmr_taskids.R

@@ -2,4 +2,3 @@
 #'   Restrict result to certain tasks.
 #'   Default is all.
 #' @md
-

man-roxygen/arg_imputey.R

@@ -11,4 +11,3 @@
 #'   For multi-criteria optimization pass a vector of imputation values, one for each of your measures,
 #'   in the same order as your measures.
 #' @md
-

man-roxygen/arg_taskdesc.R

@@ -1,3 +1,2 @@
 #' @param task.desc [TaskDesc]\cr
 #'   Task description object.
-

src/smote.c

@@ -38,5 +38,3 @@ SEXP c_smote(SEXP s_x, SEXP s_isnum, SEXP s_nn, SEXP s_res) {
   PutRNGstate();
   return s_res;
 }
-
-