Translates a table created with tablespan to a huxtable. See <https://hughjonesd.github.io/huxtable/index.html>.
Details
Huxtable is an extremely versatile table creator for R. Once translated to a huxtable, the tablespan table is easy to export to all formats directly supported by huxtable.
Examples
library(tablespan)
library(dplyr)
data("mtcars")
summarized_table <- mtcars |>
group_by(cyl, vs) |>
summarise(N = n(),
mean_hp = mean(hp),
sd_hp = sd(hp),
mean_wt = mean(wt),
sd_wt = sd(wt))
#> `summarise()` has regrouped the output.
#> ℹ Summaries were computed grouped by cyl and vs.
#> ℹ Output is grouped by cyl.
#> ℹ Use `summarise(.groups = "drop_last")` to silence this message.
#> ℹ Use `summarise(.by = c(cyl, vs))` for per-operation grouping
#> (`?dplyr::dplyr_by`) instead.
tbl <- tablespan(data = summarized_table,
formula = (LHS = Cylinder:cyl + Engine:vs) ~
N +
(Results = (`Horse Power` = Mean:mean_hp + SD:sd_hp) +
(`Weight` = Mean:mean_wt + SD:sd_wt)))
if(require_huxtable(throw = FALSE)){
library(huxtable)
hux_tbl <- as_huxtable(tbl)
hux_tbl
}
#>
#> Attaching package: ‘huxtable’
#> The following objects are masked from ‘package:flextable’:
#>
#> align, as_flextable, bold, font, height, italic, set_caption,
#> valign, width
#> The following object is masked from ‘package:dplyr’:
#>
#> add_rownames
#> ┌───────────────────┬───────┬──────────────────────────────────┐
#> │ │ │ Results │
#> ├───────────────────┤ ├─────────────────┬────────────────┤
#> │ LHS │ │ Horse Power │ Weight │
#> ├──────────┬────────┼───────┼────────┬────────┼────────┬───────┤
#> │ Cylinder │ Engine │ N │ Mean │ SD │ Mean │ SD │
#> ├──────────┴────────┼───────┴────────┴────────┴────────┴───────┤
#> │ 4 0 │ 1 91.00 2.1400 │
#> │ 4 1 │ 10 81.80 21.872 2.3003 0.60 │
#> │ 6 0 │ 3 131.67 37.528 2.7550 0.13 │
#> │ 6 1 │ 4 115.25 9.179 3.3887 0.12 │
#> │ 8 0 │ 14 209.21 50.977 3.9992 0.76 │
#> └───────────────────┴──────────────────────────────────────────┘
#>
#> Column names: cyl, vs, N, mean_hp, sd_hp, mean_wt, sd_wt