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"
)