check tidyselect output in fit.tailor()

[simonpcouch]

Closes #21.

library(modeldata)
library(tailor)

tailor_fit <- tailor() %>%
  adjust_probability_threshold(.5) %>%
  fit(
    two_class_example,
    outcome = "truth",
    estimate = "predicted",
    probabilities = tidyselect::contains("Class")
  )

tailor_fit <- tailor() %>%
  adjust_probability_threshold(.5) %>%
  fit(
    two_class_example,
    outcome = "truth_WRONG",
    estimate = "predicted",
    probabilities = tidyselect::contains("Class")
  )
#> Error in `fit()`:
#> ! Can't select columns that don't exist.
#> ✖ Column `truth_WRONG` doesn't exist.

tailor_fit <- tailor() %>%
  adjust_probability_threshold(.5) %>%
  fit(
    two_class_example,
    outcome = contains("truth_WRONG"),
    estimate = "predicted",
    probabilities = tidyselect::contains("Class")
  )
#> Error in `fit()`:
#> ! `outcome` must select at least one column.
#> ✖ Selector `contains("truth_WRONG")` did not match any columns in `.data`.

tailor_fit <- tailor() %>%
  adjust_probability_threshold(.5) %>%
  fit(
    two_class_example,
    outcome = contains("truth"),
    estimate = "predicted",
    probabilities = tidyselect::contains("Class_WRONG")
  )
#> Error in `fit()`:
#> ! `probabilities` must select at least one column.
#> ✖ Selector `tidyselect::contains("Class_WRONG")` did not match any columns in
#>   `.data`.

^{Created on 2024-06-05 with reprex v2.1.0}