inst/tinytest/test-corner-cases.R

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

# duplicate names are padded
mod <- list(
    "a" = lm(hp ~ mpg, mtcars),
    "a" = lm(hp ~ mpg + drat, mtcars))

tab <- msummary(mod, output = "data.frame")
expect_true(all(c("a", "a ") %in% colnames(tab)))

tab <- msummary(dvnames(mod), output = "data.frame")
expect_true(all(c("hp", "hp ") %in% colnames(tab)))

# Issue #565
mod <- lm(mpg ~ 0 + hp + drat, mtcars)
expect_warning(
    modelsummary(mod, output = "markdown", standardize = "refit"),
    pattern = "standardized")