remove arg_match0() on internal slot

simonpcouch · simonpcouch · commit 4d154975eb4b · 2024-09-17T10:14:28.000-05:00
diff --git a/R/tailor.R b/R/tailor.R
@@ -79,8 +79,6 @@ tailor <- function(outcome = NULL, estimate = NULL, probabilities = NULL) {
 }
 
 new_tailor <- function(type, adjustments, columns, ptype, call) {
-  type <- arg_match0(type, c("unknown", "regression", "binary", "multiclass"))
-
   if (!is.list(adjustments)) {
     cli_abort("The {.arg adjustments} argument should be a list.", call = call)
   }

Original file line number	Diff line number	Diff line change
`@@ -79,8 +79,6 @@ tailor <- function(outcome = NULL, estimate = NULL, probabilities = NULL) {`
`79`	`79`	`}`
`80`	`80`
`81`	`81`	`new_tailor <- function(type, adjustments, columns, ptype, call) {`
`82`		`- type <- arg_match0(type, c("unknown", "regression", "binary", "multiclass"))`
`83`		`-`
`84`	`82`	`if (!is.list(adjustments)) {`
`85`	`83`	`cli_abort("The {.arg adjustments} argument should be a list.", call = call)`
`86`	`84`	`}`