inst/tinytest/test-mathmode.R

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

source("helpers.R")
requiet("tinysnapshot")
using("tinysnapshot")

mod <- list(
    lm(mpg ~ hp, mtcars),
    lm(mpg ~ hp + drat, mtcars))

# d-column: known output
expect_snapshot_print(
    modelsummary(mod, align = "ldd", output = "latex"),
    "mathmode-latex_ldd")

# LaTeX global options
expect_snapshot_print(
    modelsummary(mod, output = "latex"),
    "mathmode-latex_null")

options("modelsummary_format_numeric_latex" = "dollars")
expect_snapshot_print(
    modelsummary(mod, output = "latex"),
    "mathmode-latex_dollars")

options("modelsummary_format_numeric_latex" = "anything else")
expect_snapshot_print(
    modelsummary(mod, output = "latex"),
    "mathmode-latex_anything")

options("modelsummary_format_numeric_latex" = NULL)


# HTML global options
expect_snapshot_print(
    modelsummary(mod, output = "html"),
    "mathmode-html_null")

options("modelsummary_format_numeric_html" = "dollars")
expect_snapshot_print(
    modelsummary(mod, output = "html"),
    "mathmode-html_dollars")

options("modelsummary_format_numeric_html" = "anything else")
expect_snapshot_print(
    modelsummary(mod, output = "html"),
    "mathmode-html_anything")

options("modelsummary_format_numeric_html" = NULL)