diff --git a/tests/testthat/_snaps/validation-rules.md b/tests/testthat/_snaps/validation-rules.md index cb63223..f104b4a 100644 --- a/tests/testthat/_snaps/validation-rules.md +++ b/tests/testthat/_snaps/validation-rules.md @@ -16,25 +16,6 @@ Error in `adjust_probability_calibration()`: ! adjustments that change the hard class predictions must come after adjustments that update the class probability estimates. ---- - - Code - tailor() %>% adjust_probability_threshold(threshold = 0.4) %>% - adjust_probability_calibration() - Condition - Error in `adjust_probability_calibration()`: - ! adjustments that change the hard class predictions must come after adjustments that update the class probability estimates. - ---- - - Code - tailor() %>% adjust_predictions_custom(veg = "potato") %>% - adjust_probability_threshold(threshold = 0.4) %>% - adjust_probability_calibration() - Condition - Error in `adjust_probability_calibration()`: - ! adjustments that change the hard class predictions must come after adjustments that update the class probability estimates. - --- Code @@ -56,26 +37,6 @@ Error in `adjust_probability_threshold()`: ! adjustments cannot be duplicated: "probability_threshold" ---- - - Code - tailor() %>% adjust_predictions_custom(veg = "potato") %>% - adjust_probability_threshold(threshold = 0.4) %>% - adjust_probability_threshold(threshold = 0.5) %>% - adjust_probability_calibration() - Condition - Error in `adjust_probability_threshold()`: - ! adjustments cannot be duplicated: "probability_threshold" - ---- - - Code - tailor() %>% adjust_equivocal_zone(value = 0.2) %>% - adjust_probability_threshold(threshold = 0.4) - Condition - Error in `adjust_probability_threshold()`: - ! Equivocal zone addition should come after adjustments that update the class probability estimates or hard class predictions. - --- Code diff --git a/tests/testthat/test-validation-rules.R b/tests/testthat/test-validation-rules.R index 77168e2..f9191f4 100644 --- a/tests/testthat/test-validation-rules.R +++ b/tests/testthat/test-validation-rules.R @@ -50,21 +50,6 @@ test_that("validation of adjustments (classification)", { adjust_probability_calibration() ) - expect_snapshot( - error = TRUE, - tailor() %>% - adjust_probability_threshold(threshold = .4) %>% - adjust_probability_calibration() - ) - - expect_snapshot( - error = TRUE, - tailor() %>% - adjust_predictions_custom(veg = "potato") %>% - adjust_probability_threshold(threshold = .4) %>% - adjust_probability_calibration() - ) - expect_snapshot( error = TRUE, tailor() %>% @@ -82,22 +67,6 @@ test_that("validation of adjustments (classification)", { adjust_probability_calibration() ) - expect_snapshot( - error = TRUE, - tailor() %>% - adjust_predictions_custom(veg = "potato") %>% - adjust_probability_threshold(threshold = .4) %>% - adjust_probability_threshold(threshold = .5) %>% - adjust_probability_calibration() - ) - - expect_snapshot( - error = TRUE, - tailor() %>% - adjust_equivocal_zone(value = .2) %>% - adjust_probability_threshold(threshold = .4) - ) - expect_snapshot( error = TRUE, tailor() %>%