Package 'sjtable2df'

Title: Convert 'sjPlot' HTML-Tables to R 'data.frame'
Description: A small set of helper functions to convert 'sjPlot' HTML-tables to R data.frame objects / knitr::kable-tables.
Authors: Lorenz A. Kapsner [cre, aut, cph] (ORCID: <https://orcid.org/0000-0003-1866-860X>)
Maintainer: Lorenz A. Kapsner <[email protected]>
License: GPL (>= 3)
Version: 0.0.5
Built: 2026-05-18 09:05:25 UTC
Source: https://github.com/kapsner/sjtable2df

Help Index

mtab2df

Description

Convert table from sjPlot::tab_model to R data.frame or knitr::kable

Usage

mtab2df(mtab, n_models, output = "data.table", ...)

Arguments

mtab

A model table, created with sjPlot::tab_model.
n_models

An integer, specifiying the number of models in the table.
output

A character vector. Allowed values are: "data.table" (default), "data.frame" or "kable". The function's return value is of the respective type.
...

Further arguments to be passed to kableExtra::kbl.

Value

The table is returned as an R object of the type specified with the output argument.

Examples

if (requireNamespace("sjPlot", quietly = TRUE)) {
  set.seed(1)
  dataset <- data.table::data.table(
    "var1" = factor(sample(
      x = c("yes", "no"),
      size = 100,
      replace = TRUE,
      prob = c(.3, .7)
    )),
    "var2" = factor(sample(
      x = c("yes", "no"),
      size = 100,
      replace = TRUE
    )),
    "var3" = rnorm(100)
  )

  # models
  m0 <- stats::glm(
    var1 ~ 1,
    data = dataset,
    family = binomial(link = "logit")
  )
  m1 <- stats::glm(
    var1 ~ var2,
    data = dataset,
    family = binomial(link = "logit")
  )
  m2 <- stats::glm(
    var1 ~ var2 + var3,
    data = dataset,
    family = binomial(link = "logit")
  )

  m_table <- sjPlot::tab_model(m0, m1, m2, show.aic = TRUE)

  final_tab <- sjtable2df::mtab2df(mtab = m_table, n_models = 3)

}

xtab2df

Description

Convert table from sjPlot::tab_xtab to R data.frame or knitr::kable

Usage

xtab2df(xtab, output = "data.table", threeparttable = FALSE, ...)

Arguments

xtab

A contingency table, created with sjPlot::tab_xtab.
output

A character vector. Allowed values are: "data.table" (default), "data.frame" or "kable". The function's return value is of the respective type.
threeparttable

Boolean value indicating if a threeparttable scheme should be used.
...

Further arguments to be passed to kableExtra::kbl.

Value

The table is returned as an R object of the type specified with the output argument.

Examples

if (requireNamespace("sjPlot", quietly = TRUE)) {
  set.seed(1)
  dataset <- data.table::data.table(
    "var1" = sample(
      x = c("yes", "no"),
      size = 100,
      replace = TRUE,
      prob = c(.3, .7)
    ),
    "var2" = sample(
      x = c("yes", "no"),
      size = 100,
      replace = TRUE
    )
  )

  xtab <- sjPlot::tab_xtab(
    var.row = dataset$var1,
    var.col = dataset$var2,
    show.summary = TRUE,
    use.viewer = FALSE
  )

  sjtable2df::xtab2df(xtab = xtab)
}