inst/tinytest/test-modelsummary_list.R

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

source("helpers.R")

# Issue 507: extraneous error about not supported
mod <- lm(mpg ~ hp + factor(cyl), mtcars)
ml <- modelsummary(mod, output = "modelsummary_list")
msg <- capture.output({tab <- modelsummary(ml, output = "data.frame")})
expect_equivalent(length(msg), 0)

# output="modelsummary_list" and back to data.frame
mod <- list(
    lm(mpg ~ hp, mtcars),
    lm(mpg ~ hp + drat, mtcars))
tab <- modelsummary(mod, "modelsummary_list")
expect_true(all(sapply(tab, inherits, "modelsummary_list")))
expect_true(class(tab)[1] == "list")
tab <- modelsummary(tab, "data.frame")
expect_inherits(tab, "data.frame")
expect_equivalent(dim(tab), c(14, 5))

# tidiers empty
mod <- lm(mpg ~ hp + drat + vs, mtcars)
ml <- list(tidy = modelsummary:::get_estimates(mod))
class(ml) <- "modelsummary_list"
gl <- generics::glance(ml)
expect_inherits(gl, "data.frame")
expect_equivalent(dim(gl), c(1, 0))
ml <- list(glance = modelsummary:::get_gof(mod))
class(ml) <- "modelsummary_list"
expect_error(tidy(ml))