inst/tinytest/test-zzz-modelsummary_get.R

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

data(trees)
mod <- lm(Girth ~ Height + Volume, data = trees)

# options(modelsummary_get)
    options(modelsummary_get = "broom")
    tab1 <- get_gof(mod)
    expect_equivalent(ncol(tab1), 13)

    options(modelsummary_get = "easystats")
    tab2 <- get_gof(mod)
    expect_true(ncol(tab2) > 6)
    expect_true("rmse" %in% colnames(tab2))

    options(modelsummary_get = "all")
    tab3 <- get_gof(mod)
    expect_equivalent(ncol(tab3), 14)


    # restore default
    options(modelsummary_get = "easystats")