| Title: | Convert 'sjPlot' HTML-Tables to R 'data.frame' |
| Version: | 0.0.4 |
| Description: | A small set of helper functions to convert 'sjPlot' HTML-tables to R data.frame objects / knitr::kable-tables. |
| License: | GPL (≥ 3) |
| URL: | https://github.com/kapsner/sjtable2df |
| BugReports: | https://github.com/kapsner/sjtable2df/issues |
| Depends: | R (≥ 3.6) |
| Imports: | data.table, kableExtra, magrittr, rlang, rvest, stats, xml2 |
| Suggests: | lintr, lme4, mlbench, quarto, sjPlot, testthat (≥ 3.0.1) |
| VignetteBuilder: | quarto |
| Config/testthat/edition: | 3 |
| Config/testthat/parallel: | false |
| Date/Publication: | 2025-04-04 14:50:02 UTC |
| Encoding: | UTF-8 |
| SystemRequirements: | Quarto command line tools (https://github.com/quarto-dev/quarto-cli). |
| RoxygenNote: | 7.3.2 |
| NeedsCompilation: | no |
| Packaged: | 2025-04-04 14:38:57 UTC; user |
| Author: | Lorenz A. Kapsner 
[cre, aut, cph] |
| Maintainer: | Lorenz A. Kapsner <lorenz.kapsner@gmail.com> |
| Repository: | CRAN |
Dot Helper
Description
https://github.com/tidyverse/magrittr/issues/29
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 |
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 |
Value
The table is returned as an R object of the type specified with
the output argument.
Examples
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 |
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 |
Value
The table is returned as an R object of the type specified with
the output argument.
Examples
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)