inst/tinytest/test-datasummary_df.R

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

source("helpers.R")

tmp <- head(mtcars)

# no error + code coverage
tmp$cyl <- as.factor(tmp$cyl)

ar <- tail(mtcars, 1)
ac <- data.frame(new = 1:6)

tab <- datasummary_df(
    data = tmp,
    output = "default",
    fmt = "%.0f",
    align = strrep("r", ncol(tmp)),
    hrule = 3,
    title = "blah blah title",
    notes = c("first note", "second note"),
    add_rows = ar)
expect_inherits(tab, "tinytable")