tests/testthat/test-printing.R

test_that("printing works", {
  l <- lm_model(hp ~ cyl)
  nb <- glm_nb_model(hp ~ cyl)
  fit <- fit(list(l=l,nb=nb), mtcars)
  pred <- predict(fit)
  expect_snapshot(print(fit))
  expect_snapshot(print(pred))
  expect_snapshot(print(pred$result[[1]]))
})

Try the trending package in your browser

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

trending documentation built on April 4, 2023, 1:07 a.m.