inst/tinytest/test-zzz.R

In vincentarelbundock/gtsummary: 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)