gistfile1.txt

remotes::install_github('vincentarelbundock/modelsummary')

library(modelsummary)

models <- list()
models[['OLS']] <- lm(mpg ~ factor(cyl), mtcars)
models[['Logit']] <- glm(am ~ factor(cyl), mtcars, family = binomial)

make_rows <- function(models) {
    rows <- data.frame(term = 'factor(cyl)4', section = 'middle', position = 3)
    for (n in names(models)) rows[[n]] <- '-'
    rows
}

msummary(models, add_rows = make_rows(models))