tests/testthat/test-medley.R

context("Medleys")

fit <- lm(mpg ~ qsec + factor(am) + wt * factor(gear), data = mtcars)

test_that("medley_bw",
{
  expect_silent(
    dust(fit) %>%
      medley_bw() %>%
      sprinkle_print_method("html")
  )

})

test_that("medley_model",
{
  expect_silent(
    dust(fit, 
         glance_foot = TRUE) %>%
    medley_model() %>%
    sprinkle_print_method("html")
  )
})

Try the pixiedust package in your browser

Any scripts or data that you put into this service are public.

pixiedust documentation built on Oct. 10, 2023, 9:07 a.m.