perf: use %chin% and fifelse

m-muecke · m-muecke · commit 6d002ab1bfcb · 2024-12-03T13:07:49.000+01:00
diff --git a/R/PredictionClust.R b/R/PredictionClust.R
@@ -70,7 +70,7 @@ PredictionClust = R6Class("PredictionClust",
 #' @export
 as.data.table.PredictionClust = function(x, ...) { # nolint
   tab = as.data.table(x$data[c("row_ids", "partition")])
-  if ("prob" %in% x$predict_types) {
+  if ("prob" %chin% x$predict_types) {
     prob = as.data.table(x$data$prob)
     setnames(prob, new = paste0("prob.", names(prob)))
     tab = rcbind(tab, prob)
diff --git a/R/PredictionDataClust.R b/R/PredictionDataClust.R
@@ -99,7 +99,7 @@ create_empty_prediction_data.TaskClust = function(task, learner) {
     partition = integer()
   )
 
-  if ("prob" %in% predict_types) {
+  if ("prob" %chin% predict_types) {
     pdata$prob = matrix(integer())
   }
 
diff --git a/R/zzz.R b/R/zzz.R
@@ -14,12 +14,12 @@ mlr3cluster_tasks = new.env()
 mlr3cluster_learners = new.env()
 
 register_task = function(name, constructor) {
-  if (name %in% names(mlr3cluster_tasks)) stopf("task %s registered twice", name)
+  if (name %chin% names(mlr3cluster_tasks)) stopf("task %s registered twice", name)
   mlr3cluster_tasks[[name]] = constructor
 }
 
 register_learner = function(name, constructor) {
-  if (name %in% names(mlr3cluster_learners)) stopf("learner %s registered twice", name)
+  if (name %chin% names(mlr3cluster_learners)) stopf("learner %s registered twice", name)
   mlr3cluster_learners[[name]] = constructor
 }
 
diff --git a/README.Rmd b/README.Rmd
@@ -12,6 +12,7 @@ knitr::opts_chunk$set(
   out.width = "100%"
 )
 
+library(data.table)
 library(mlr3cluster)
 library(mlr3misc)
 lrn_clust = as.data.table(mlr3::mlr_learners)[task_type == "clust", .(key, label, packages)]
@@ -64,8 +65,9 @@ Also, the package is integrated with **[mlr3viz](https://github.com/mlr-org/mlr3
 
 ```{r, echo = FALSE}
 cran_pkg = function(pkgs) {
-  pkgs = ifelse(
-    pkgs %in% c("stats", "graphics", "datasets"), pkgs, sprintf("[%1$s](https://cran.r-project.org/package=%1$s)", pkgs)
+  pkgs = fifelse(
+    pkgs %chin% c("stats", "graphics", "datasets"),
+    pkgs, sprintf("[%1$s](https://cran.r-project.org/package=%1$s)", pkgs)
   )
   toString(pkgs)
 }
diff --git a/tests/testthat/helper_expectations.R b/tests/testthat/helper_expectations.R
@@ -8,7 +8,7 @@ expect_prediction_clust = function(p) {
     any.missing = FALSE, len = length(p$row_ids),
     null.ok = TRUE
   )
-  if ("prob" %in% p$predict_types) {
+  if ("prob" %chin% p$predict_types) {
     expect_matrix(p$prob, "numeric", any.missing = FALSE, nrows = length(p$row_ids))
   }
 }
diff --git a/tests/testthat/test_mlr_learners_clust_agnes.R b/tests/testthat/test_mlr_learners_clust_agnes.R
@@ -29,10 +29,10 @@ test_that("Learner properties are respected", {
     p = suppressWarnings(learner$train(task)$predict(task))
     expect_prediction_clust(p)
 
-    if ("complete" %in% learner$properties) {
+    if ("complete" %chin% learner$properties) {
       expect_prediction_complete(p, learner$predict_type)
     }
-    if ("exclusive" %in% learner$properties) {
+    if ("exclusive" %chin% learner$properties) {
       expect_prediction_exclusive(p, learner$predict_type)
     }
   }
diff --git a/tests/testthat/test_mlr_learners_clust_ap.R b/tests/testthat/test_mlr_learners_clust_ap.R
@@ -27,10 +27,10 @@ test_that("Learner properties are respected", {
     p = suppressWarnings(learner$train(task)$predict(task))
     expect_prediction_clust(p)
 
-    if ("complete" %in% learner$properties) {
+    if ("complete" %chin% learner$properties) {
       expect_prediction_complete(p, learner$predict_type)
     }
-    if ("exclusive" %in% learner$properties) {
+    if ("exclusive" %chin% learner$properties) {
       expect_prediction_exclusive(p, learner$predict_type)
     }
   }
diff --git a/tests/testthat/test_mlr_learners_clust_bico.R b/tests/testthat/test_mlr_learners_clust_bico.R
@@ -27,10 +27,10 @@ test_that("Learner properties are respected", {
     p = learner$train(task)$predict(task)
     expect_prediction_clust(p)
 
-    if ("complete" %in% learner$properties) {
+    if ("complete" %chin% learner$properties) {
       expect_prediction_complete(p, learner$predict_type)
     }
-    if ("exclusive" %in% learner$properties) {
+    if ("exclusive" %chin% learner$properties) {
       expect_prediction_exclusive(p, learner$predict_type)
     }
   }
diff --git a/tests/testthat/test_mlr_learners_clust_birch.R b/tests/testthat/test_mlr_learners_clust_birch.R
@@ -26,10 +26,10 @@ test_that("Learner properties are respected", {
     p = learner$train(task)$predict(task)
     expect_prediction_clust(p)
 
-    if ("complete" %in% learner$properties) {
+    if ("complete" %chin% learner$properties) {
       expect_prediction_complete(p, learner$predict_type)
     }
-    if ("exclusive" %in% learner$properties) {
+    if ("exclusive" %chin% learner$properties) {
       expect_prediction_exclusive(p, learner$predict_type)
     }
   }
diff --git a/tests/testthat/test_mlr_learners_clust_cmeans.R b/tests/testthat/test_mlr_learners_clust_cmeans.R
@@ -33,13 +33,13 @@ test_that("Learner properties are respected", {
     p = learner$train(task)$predict(task)
     expect_prediction_clust(p)
 
-    if ("complete" %in% learner$properties) {
+    if ("complete" %chin% learner$properties) {
       expect_prediction_complete(p, learner$predict_type)
     }
-    if ("exclusive" %in% learner$properties) {
+    if ("exclusive" %chin% learner$properties) {
       expect_prediction_exclusive(p, learner$predict_type)
     }
-    if ("fuzzy" %in% learner$properties) {
+    if ("fuzzy" %chin% learner$properties) {
       expect_prediction_fuzzy(p)
     }
   }
diff --git a/tests/testthat/test_mlr_learners_clust_cobweb.R b/tests/testthat/test_mlr_learners_clust_cobweb.R
@@ -27,10 +27,10 @@ test_that("Learner properties are respected", {
     p = learner$train(task)$predict(task)
     expect_prediction_clust(p)
 
-    if ("complete" %in% learner$properties) {
+    if ("complete" %chin% learner$properties) {
       expect_prediction_complete(p, learner$predict_type)
     }
-    if ("exclusive" %in% learner$properties) {
+    if ("exclusive" %chin% learner$properties) {
       expect_prediction_exclusive(p, learner$predict_type)
     }
   }
diff --git a/tests/testthat/test_mlr_learners_clust_dbscan.R b/tests/testthat/test_mlr_learners_clust_dbscan.R
@@ -26,10 +26,10 @@ test_that("Learner properties are respected", {
     p = learner$train(task)$predict(task)
     expect_prediction_clust(p)
 
-    if ("complete" %in% learner$properties) {
+    if ("complete" %chin% learner$properties) {
       expect_prediction_complete(p, learner$predict_type)
     }
-    if ("exclusive" %in% learner$properties) {
+    if ("exclusive" %chin% learner$properties) {
       expect_prediction_exclusive(p, learner$predict_type)
     }
   }
diff --git a/tests/testthat/test_mlr_learners_clust_dbscan_fpc.R b/tests/testthat/test_mlr_learners_clust_dbscan_fpc.R
@@ -26,10 +26,10 @@ test_that("Learner properties are respected", {
     p = learner$train(task)$predict(task)
     expect_prediction_clust(p)
 
-    if ("complete" %in% learner$properties) {
+    if ("complete" %chin% learner$properties) {
       expect_prediction_complete(p, learner$predict_type)
     }
-    if ("exclusive" %in% learner$properties) {
+    if ("exclusive" %chin% learner$properties) {
       expect_prediction_exclusive(p, learner$predict_type)
     }
   }
diff --git a/tests/testthat/test_mlr_learners_clust_diana.R b/tests/testthat/test_mlr_learners_clust_diana.R
@@ -29,10 +29,10 @@ test_that("Learner properties are respected", {
     p = suppressWarnings(learner$train(task)$predict(task))
     expect_prediction_clust(p)
 
-    if ("complete" %in% learner$properties) {
+    if ("complete" %chin% learner$properties) {
       expect_prediction_complete(p, learner$predict_type)
     }
-    if ("exclusive" %in% learner$properties) {
+    if ("exclusive" %chin% learner$properties) {
       expect_prediction_exclusive(p, learner$predict_type)
     }
   }
diff --git a/tests/testthat/test_mlr_learners_clust_em.R b/tests/testthat/test_mlr_learners_clust_em.R
@@ -27,10 +27,10 @@ test_that("Learner properties are respected", {
     p = learner$train(task)$predict(task)
     expect_prediction_clust(p)
 
-    if ("complete" %in% learner$properties) {
+    if ("complete" %chin% learner$properties) {
       expect_prediction_complete(p, learner$predict_type)
     }
-    if ("exclusive" %in% learner$properties) {
+    if ("exclusive" %chin% learner$properties) {
       expect_prediction_exclusive(p, learner$predict_type)
     }
   }
diff --git a/tests/testthat/test_mlr_learners_clust_fanny.R b/tests/testthat/test_mlr_learners_clust_fanny.R
@@ -28,13 +28,13 @@ test_that("Learner properties are respected", {
     p = suppressWarnings(learner$train(task)$predict(task))
     expect_prediction_clust(p)
 
-    if ("complete" %in% learner$properties) {
+    if ("complete" %chin% learner$properties) {
       expect_prediction_complete(p, learner$predict_type)
     }
-    if ("exclusive" %in% learner$properties) {
+    if ("exclusive" %chin% learner$properties) {
       expect_prediction_exclusive(p, learner$predict_type)
     }
-    if ("fuzzy" %in% learner$properties) {
+    if ("fuzzy" %chin% learner$properties) {
       expect_prediction_fuzzy(p)
     }
   }
diff --git a/tests/testthat/test_mlr_learners_clust_featureless.R b/tests/testthat/test_mlr_learners_clust_featureless.R
@@ -24,10 +24,10 @@ test_that("Learner properties are respected", {
     p = learner$train(task)$predict(task)
     expect_prediction_clust(p)
 
-    if ("complete" %in% learner$properties) {
+    if ("complete" %chin% learner$properties) {
       expect_prediction_complete(p, learner$predict_type)
     }
-    if ("exclusive" %in% learner$properties) {
+    if ("exclusive" %chin% learner$properties) {
       expect_prediction_exclusive(p, learner$predict_type)
     }
   }
diff --git a/tests/testthat/test_mlr_learners_clust_ff.R b/tests/testthat/test_mlr_learners_clust_ff.R
@@ -27,10 +27,10 @@ test_that("Learner properties are respected", {
     p = learner$train(task)$predict(task)
     expect_prediction_clust(p)
 
-    if ("complete" %in% learner$properties) {
+    if ("complete" %chin% learner$properties) {
       expect_prediction_complete(p, learner$predict_type)
     }
-    if ("exclusive" %in% learner$properties) {
+    if ("exclusive" %chin% learner$properties) {
       expect_prediction_exclusive(p, learner$predict_type)
     }
   }
diff --git a/tests/testthat/test_mlr_learners_clust_hclust.R b/tests/testthat/test_mlr_learners_clust_hclust.R
@@ -26,13 +26,13 @@ test_that("Learner properties are respected", {
     p = suppressWarnings(learner$train(task)$predict(task))
     expect_prediction_clust(p)
 
-    if ("complete" %in% learner$properties) {
+    if ("complete" %chin% learner$properties) {
       expect_prediction_complete(p, learner$predict_type)
     }
-    if ("exclusive" %in% learner$properties) {
+    if ("exclusive" %chin% learner$properties) {
       expect_prediction_exclusive(p, learner$predict_type)
     }
-    if ("fuzzy" %in% learner$properties) {
+    if ("fuzzy" %chin% learner$properties) {
       expect_prediction_fuzzy(p)
     }
   }
diff --git a/tests/testthat/test_mlr_learners_clust_hdbscan.R b/tests/testthat/test_mlr_learners_clust_hdbscan.R
@@ -27,10 +27,10 @@ test_that("Learner properties are respected", {
     p = learner$train(task)$predict(task)
     expect_prediction_clust(p)
 
-    if ("complete" %in% learner$properties) {
+    if ("complete" %chin% learner$properties) {
       expect_prediction_complete(p, learner$predict_type)
     }
-    if ("exclusive" %in% learner$properties) {
+    if ("exclusive" %chin% learner$properties) {
       expect_prediction_exclusive(p, learner$predict_type)
     }
   }
diff --git a/tests/testthat/test_mlr_learners_clust_kkmeans.R b/tests/testthat/test_mlr_learners_clust_kkmeans.R
@@ -33,10 +33,10 @@ test_that("Learner properties are respected", {
     p = learner$train(task)$predict(task)
     expect_prediction_clust(p)
 
-    if ("complete" %in% learner$properties) {
+    if ("complete" %chin% learner$properties) {
       expect_prediction_complete(p, learner$predict_type)
     }
-    if ("exclusive" %in% learner$properties) {
+    if ("exclusive" %chin% learner$properties) {
       expect_prediction_exclusive(p, learner$predict_type)
     }
 
diff --git a/tests/testthat/test_mlr_learners_clust_kmeans.R b/tests/testthat/test_mlr_learners_clust_kmeans.R
@@ -33,10 +33,10 @@ test_that("Learner properties are respected", {
     p = learner$train(task)$predict(task)
     expect_prediction_clust(p)
 
-    if ("complete" %in% learner$properties) {
+    if ("complete" %chin% learner$properties) {
       expect_prediction_complete(p, learner$predict_type)
     }
-    if ("exclusive" %in% learner$properties) {
+    if ("exclusive" %chin% learner$properties) {
       expect_prediction_exclusive(p, learner$predict_type)
     }
 
diff --git a/tests/testthat/test_mlr_learners_clust_mbatchkmeans.R b/tests/testthat/test_mlr_learners_clust_mbatchkmeans.R
@@ -38,10 +38,10 @@ test_that("Learner properties are respected", {
       p = learner$train(task)$predict(task)
       expect_prediction_clust(p)
 
-      if ("complete" %in% learner$properties) {
+      if ("complete" %chin% learner$properties) {
         expect_prediction_complete(p, learner$predict_type)
       }
-      if ("exclusive" %in% learner$properties) {
+      if ("exclusive" %chin% learner$properties) {
         expect_prediction_exclusive(p, "partition")
       }
       if (learner$predict_type == "prob") {
diff --git a/tests/testthat/test_mlr_learners_clust_mclust.R b/tests/testthat/test_mlr_learners_clust_mclust.R
@@ -26,13 +26,13 @@ test_that("Learner properties are respected", {
     p = suppressWarnings(learner$train(task)$predict(task))
     expect_prediction_clust(p)
 
-    if ("complete" %in% learner$properties) {
+    if ("complete" %chin% learner$properties) {
       expect_prediction_complete(p, learner$predict_type)
     }
-    if ("exclusive" %in% learner$properties) {
+    if ("exclusive" %chin% learner$properties) {
       expect_prediction_exclusive(p, learner$predict_type)
     }
-    if ("fuzzy" %in% learner$properties) {
+    if ("fuzzy" %chin% learner$properties) {
       expect_prediction_fuzzy(p)
     }
   }
diff --git a/tests/testthat/test_mlr_learners_clust_meanshift.R b/tests/testthat/test_mlr_learners_clust_meanshift.R
@@ -28,10 +28,10 @@ test_that("Learner properties are respected", {
     p = suppressWarnings(learner$train(task)$predict(task))
     expect_prediction_clust(p)
 
-    if ("complete" %in% learner$properties) {
+    if ("complete" %chin% learner$properties) {
       expect_prediction_complete(p, learner$predict_type)
     }
-    if ("exclusive" %in% learner$properties) {
+    if ("exclusive" %chin% learner$properties) {
       expect_prediction_exclusive(p, learner$predict_type)
     }
   }
diff --git a/tests/testthat/test_mlr_learners_clust_optics.R b/tests/testthat/test_mlr_learners_clust_optics.R
@@ -26,10 +26,10 @@ test_that("Learner properties are respected", {
     p = learner$train(task)$predict(task)
     expect_prediction_clust(p)
 
-    if ("complete" %in% learner$properties) {
+    if ("complete" %chin% learner$properties) {
       expect_prediction_complete(p, learner$predict_type)
     }
-    if ("exclusive" %in% learner$properties) {
+    if ("exclusive" %chin% learner$properties) {
       expect_prediction_exclusive(p, learner$predict_type)
     }
   }
diff --git a/tests/testthat/test_mlr_learners_clust_pam.R b/tests/testthat/test_mlr_learners_clust_pam.R
@@ -26,10 +26,10 @@ test_that("Learner properties are respected", {
     p = learner$train(task)$predict(task)
     expect_prediction_clust(p)
 
-    if ("complete" %in% learner$properties) {
+    if ("complete" %chin% learner$properties) {
       expect_prediction_complete(p, learner$predict_type)
     }
-    if ("exclusive" %in% learner$properties) {
+    if ("exclusive" %chin% learner$properties) {
       expect_prediction_exclusive(p, learner$predict_type)
     }
   }
diff --git a/tests/testthat/test_mlr_learners_clust_simplekmeans.R b/tests/testthat/test_mlr_learners_clust_simplekmeans.R
@@ -27,10 +27,10 @@ test_that("Learner properties are respected", {
     p = learner$train(task)$predict(task)
     expect_prediction_clust(p)
 
-    if ("complete" %in% learner$properties) {
+    if ("complete" %chin% learner$properties) {
       expect_prediction_complete(p, learner$predict_type)
     }
-    if ("exclusive" %in% learner$properties) {
+    if ("exclusive" %chin% learner$properties) {
       expect_prediction_exclusive(p, learner$predict_type)
     }
   }
diff --git a/tests/testthat/test_mlr_learners_clust_xmeans.R b/tests/testthat/test_mlr_learners_clust_xmeans.R
@@ -27,10 +27,10 @@ test_that("Learner properties are respected", {
     p = learner$train(task)$predict(task)
     expect_prediction_clust(p)
 
-    if ("complete" %in% learner$properties) {
+    if ("complete" %chin% learner$properties) {
       expect_prediction_complete(p, learner$predict_type)
     }
-    if ("exclusive" %in% learner$properties) {
+    if ("exclusive" %chin% learner$properties) {
       expect_prediction_exclusive(p, learner$predict_type)
     }
   }

Original file line number	Diff line number	Diff line change
`@@ -99,7 +99,7 @@ create_empty_prediction_data.TaskClust = function(task, learner) {`
`99`	`99`	`partition = integer()`
`100`	`100`	`)`
`101`	`101`
`102`		`- if ("prob" %in% predict_types) {`
	`102`	`+ if ("prob" %chin% predict_types) {`
`103`	`103`	`pdata$prob = matrix(integer())`
`104`	`104`	`}`
`105`	`105`
Original file line number	Diff line number	Diff line change
`@@ -14,12 +14,12 @@ mlr3cluster_tasks = new.env()`
`14`	`14`	`mlr3cluster_learners = new.env()`
`15`	`15`
`16`	`16`	`register_task = function(name, constructor) {`
`17`		`- if (name %in% names(mlr3cluster_tasks)) stopf("task %s registered twice", name)`
	`17`	`+ if (name %chin% names(mlr3cluster_tasks)) stopf("task %s registered twice", name)`
`18`	`18`	`mlr3cluster_tasks[[name]] = constructor`
`19`	`19`	`}`
`20`	`20`
`21`	`21`	`register_learner = function(name, constructor) {`
`22`		`- if (name %in% names(mlr3cluster_learners)) stopf("learner %s registered twice", name)`
	`22`	`+ if (name %chin% names(mlr3cluster_learners)) stopf("learner %s registered twice", name)`
`23`	`23`	`mlr3cluster_learners[[name]] = constructor`
`24`	`24`	`}`
`25`	`25`
Original file line number	Diff line number	Diff line change
`@@ -12,6 +12,7 @@ knitr::opts_chunk$set(`
`12`	`12`	`out.width = "100%"`
`13`	`13`	`)`
`14`	`14`
	`15`	`+library(data.table)`
`15`	`16`	`library(mlr3cluster)`
`16`	`17`	`library(mlr3misc)`
`17`	`18`	`lrn_clust = as.data.table(mlr3::mlr_learners)[task_type == "clust", .(key, label, packages)]`
`@@ -64,8 +65,9 @@ Also, the package is integrated with **[mlr3viz](https://github.com/mlr-org/mlr3`
`64`	`65`
`65`	`66`	```{r, echo = FALSE}
`66`	`67`	`cran_pkg = function(pkgs) {`
`67`		`- pkgs = ifelse(`
`68`		`- pkgs %in% c("stats", "graphics", "datasets"), pkgs, sprintf("[%1$s](https://cran.r-project.org/package=%1$s)", pkgs)`
	`68`	`+ pkgs = fifelse(`
	`69`	`+ pkgs %chin% c("stats", "graphics", "datasets"),`
	`70`	`+ pkgs, sprintf("[%1$s](https://cran.r-project.org/package=%1$s)", pkgs)`
`69`	`71`	`)`
`70`	`72`	`toString(pkgs)`
`71`	`73`	`}`
Original file line number	Diff line number	Diff line change
`@@ -8,7 +8,7 @@ expect_prediction_clust = function(p) {`
`8`	`8`	`any.missing = FALSE, len = length(p$row_ids),`
`9`	`9`	`null.ok = TRUE`
`10`	`10`	`)`
`11`		`- if ("prob" %in% p$predict_types) {`
	`11`	`+ if ("prob" %chin% p$predict_types) {`
`12`	`12`	`expect_matrix(p$prob, "numeric", any.missing = FALSE, nrows = length(p$row_ids))`
`13`	`13`	`}`
`14`	`14`	`}`
Original file line number	Diff line number	Diff line change
`@@ -29,10 +29,10 @@ test_that("Learner properties are respected", {`
`29`	`29`	`p = suppressWarnings(learner$train(task)$predict(task))`
`30`	`30`	`expect_prediction_clust(p)`
`31`	`31`
`32`		`- if ("complete" %in% learner$properties) {`
	`32`	`+ if ("complete" %chin% learner$properties) {`
`33`	`33`	`expect_prediction_complete(p, learner$predict_type)`
`34`	`34`	`}`
`35`		`- if ("exclusive" %in% learner$properties) {`
	`35`	`+ if ("exclusive" %chin% learner$properties) {`
`36`	`36`	`expect_prediction_exclusive(p, learner$predict_type)`
`37`	`37`	`}`
`38`	`38`	`}`
Original file line number	Diff line number	Diff line change
`@@ -27,10 +27,10 @@ test_that("Learner properties are respected", {`
`27`	`27`	`p = suppressWarnings(learner$train(task)$predict(task))`
`28`	`28`	`expect_prediction_clust(p)`
`29`	`29`
`30`		`- if ("complete" %in% learner$properties) {`
	`30`	`+ if ("complete" %chin% learner$properties) {`
`31`	`31`	`expect_prediction_complete(p, learner$predict_type)`
`32`	`32`	`}`
`33`		`- if ("exclusive" %in% learner$properties) {`
	`33`	`+ if ("exclusive" %chin% learner$properties) {`
`34`	`34`	`expect_prediction_exclusive(p, learner$predict_type)`
`35`	`35`	`}`
`36`	`36`	`}`
Original file line number	Diff line number	Diff line change
`@@ -26,10 +26,10 @@ test_that("Learner properties are respected", {`
`26`	`26`	`p = learner$train(task)$predict(task)`
`27`	`27`	`expect_prediction_clust(p)`
`28`	`28`
`29`		`- if ("complete" %in% learner$properties) {`
	`29`	`+ if ("complete" %chin% learner$properties) {`
`30`	`30`	`expect_prediction_complete(p, learner$predict_type)`
`31`	`31`	`}`
`32`		`- if ("exclusive" %in% learner$properties) {`
	`32`	`+ if ("exclusive" %chin% learner$properties) {`
`33`	`33`	`expect_prediction_exclusive(p, learner$predict_type)`
`34`	`34`	`}`
`35`	`35`	`}`
Original file line number	Diff line number	Diff line change
`@@ -33,13 +33,13 @@ test_that("Learner properties are respected", {`
`33`	`33`	`p = learner$train(task)$predict(task)`
`34`	`34`	`expect_prediction_clust(p)`
`35`	`35`
`36`		`- if ("complete" %in% learner$properties) {`
	`36`	`+ if ("complete" %chin% learner$properties) {`
`37`	`37`	`expect_prediction_complete(p, learner$predict_type)`
`38`	`38`	`}`
`39`		`- if ("exclusive" %in% learner$properties) {`
	`39`	`+ if ("exclusive" %chin% learner$properties) {`
`40`	`40`	`expect_prediction_exclusive(p, learner$predict_type)`
`41`	`41`	`}`
`42`		`- if ("fuzzy" %in% learner$properties) {`
	`42`	`+ if ("fuzzy" %chin% learner$properties) {`
`43`	`43`	`expect_prediction_fuzzy(p)`
`44`	`44`	`}`
`45`	`45`	`}`
Original file line number	Diff line number	Diff line change
`@@ -28,13 +28,13 @@ test_that("Learner properties are respected", {`
`28`	`28`	`p = suppressWarnings(learner$train(task)$predict(task))`
`29`	`29`	`expect_prediction_clust(p)`
`30`	`30`
`31`		`- if ("complete" %in% learner$properties) {`
	`31`	`+ if ("complete" %chin% learner$properties) {`
`32`	`32`	`expect_prediction_complete(p, learner$predict_type)`
`33`	`33`	`}`
`34`		`- if ("exclusive" %in% learner$properties) {`
	`34`	`+ if ("exclusive" %chin% learner$properties) {`
`35`	`35`	`expect_prediction_exclusive(p, learner$predict_type)`
`36`	`36`	`}`
`37`		`- if ("fuzzy" %in% learner$properties) {`
	`37`	`+ if ("fuzzy" %chin% learner$properties) {`
`38`	`38`	`expect_prediction_fuzzy(p)`
`39`	`39`	`}`
`40`	`40`	`}`
Original file line number	Diff line number	Diff line change
`@@ -24,10 +24,10 @@ test_that("Learner properties are respected", {`
`24`	`24`	`p = learner$train(task)$predict(task)`
`25`	`25`	`expect_prediction_clust(p)`
`26`	`26`
`27`		`- if ("complete" %in% learner$properties) {`
	`27`	`+ if ("complete" %chin% learner$properties) {`
`28`	`28`	`expect_prediction_complete(p, learner$predict_type)`
`29`	`29`	`}`
`30`		`- if ("exclusive" %in% learner$properties) {`
	`30`	`+ if ("exclusive" %chin% learner$properties) {`
`31`	`31`	`expect_prediction_exclusive(p, learner$predict_type)`
`32`	`32`	`}`
`33`	`33`	`}`