tests/testthat/test-fiting.R

In EmilHvitfeldt/celery: A Common API to Clustering

test_that("fit and fit_xy errors if outcome is provided", {
  expect_no_error(
    k_means(num_clusters = 5) |> fit_xy(mtcars)
  )

  expect_snapshot(
    error = TRUE,
    k_means(num_clusters = 5) |>
      fit_xy(mtcars, y = mtcars$mpg)
  )

  km <- k_means(num_clusters = 5)

  expect_no_error(
    workflows::workflow(~., km) |> fit(mtcars)
  )
  expect_snapshot(
    error = TRUE,
    workflows::workflow(mpg ~ ., km) |> fit(mtcars)
  )
})