inst/tinytest/test-zzz.R

In modelsummary: Summary Tables and Plots for Statistical Models and Data: Beautiful, Customizable, and Publication-Ready

source("helpers.R")

# glue with no statistic
# first time lmer raises a warn_once
requiet("lme4")
mod <- lmer(mpg ~ hp + (1 | cyl), data = mtcars)
tab <- modelsummary(
  mod,
  output = "data.frame",
  gof_map = NA,
  statistic = c(
    "t = {statistic}",
    "p = {p.value}"
  )
)
expect_equivalent(nrow(tab), 8)