tests/testthat/test-fmt_regression.R

In ddsjoberg/clintable: Presentation-Ready Data Summary Tables

context("test-fmt_regression")
library(survival)
library(lme4)


mod_lm <- lm(hp ~ am, data = mtcars)
mod_survreg <- survreg(Surv(time, status) ~ age + ph.ecog, data = lung)
mod_lmer <- lmer(Reaction ~ Days + (Days | Subject), sleepstudy)
mod_glmer <- glmer(am ~ hp + factor(cyl) + (1 | gear), mtcars, family = binomial)



test_that("lm: no errors/warnings with standard use", {
  expect_error(fmt_regression(mod_lm), NA)
  expect_warning(fmt_regression(mod_lm), NA)
})


test_that("survreg: no errors/warnings with standard use", {
  expect_error(fmt_regression(mod_survreg), NA)
  expect_warning(fmt_regression(mod_survreg), NA)
})

test_that("lmer: no errors/warnings with standard use", {
  expect_error(fmt_regression(mod_lmer), NA)
  expect_warning(fmt_regression(mod_lmer), NA)
})

test_that("glmer: no errors/warnings with standard use", {
  expect_error(fmt_regression(mod_glmer), NA)
  expect_warning(fmt_regression(mod_glmer), NA)
})