inst/tinytest/test-coef_rename.R

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

source("helpers.R")

mod <- list()
mod$OLS <- lm(am ~ drat, data = mtcars)
mod$Logit <- glm(am ~ qsec, data = mtcars, family = binomial())

# rename 2 out of 3 coefficients
cmap <- c("(Intercept)" = "Constant", "drat" = "Rear axle ratio")
mod <- modelsummary(mod, "dataframe", coef_rename = cmap)
known <- c("Constant", "Constant", "Rear axle ratio", "Rear axle ratio", "qsec")
expect_equivalent(mod$term[1:5], known)

# coef_rename and coef_map are incompatible
cmap <- c("(Intercept)" = "Constant", "drat" = "Rear axle ratio")
expect_error(modelsummary(mod, coef_rename = cmap, coef_map = cmap))

# regression test: coef_rename() function
x <- list(
  lm(mpg ~ factor(cyl) + drat + disp, data = mtcars),
  lm(hp ~ factor(cyl) + drat + disp, data = mtcars))
tab <- modelsummary(dvnames(x), output = "dataframe", coef_rename = coef_rename)
expect_inherits(tab, "data.frame")

# unnamed coef_rename + coef_omit numeric
mod <- lm(mpg ~ hp + wt + disp + carb + gear + vs + cyl + drat + am + hp * wt, data = mtcars)
tab <- modelsummary(mod, output = "data.frame", coef_omit = c(3:11), coef_rename = c("Constant", "Horsepower"), gof_map = NA)
expect_equivalent(nrow(tab), 4)