tests/testthat/test-model-matrix.R

test_that("model_matrix() returns a tibble", {
  out <- model_matrix(iris, Sepal.Length ~ Species)
  expect_s3_class(out, "tbl_df")
})
tidyverse/modelr documentation built on Oct. 31, 2023, 7:39 p.m.