HtmlTable
An R package for generating advanced tables
Install / Use
/learn @gforge/HtmlTableREADME
Basics
The htmlTable package is intended for generating tables using HTML formatting. This format is compatible with Markdown when used for HTML-output. The most basic table can easily be created by just passing a matrix or a data.frame to the htmlTable-function:
library(magrittr)
library(htmlTable)
# A simple output
output <- matrix(1:4,
ncol=2,
dimnames = list(list("Row 1", "Row 2"),
list("Column 1", "Column 2")))
htmlTable(output)
If you are using dplyr and tidyverse a convenient wrapper is the tidyHtmlTable function (check out vignette("tidyHtmlTable")). A simple example of the tidyHtmlTable would look something like this:
library(tidyverse)
library(glue)
mtcars |>
as_tibble(rownames = "rnames") |>
filter(cyl == 6 & qsec < 18) |>
pivot_longer(names_to = "per_metric",
cols = c(hp, mpg, qsec)) |>
arrange(gear, rnames) |>
mutate(gear = glue("{gear} gears")) |>
addHtmlTableStyle(align = "r") |>
tidyHtmlTable(header = per_metric, rnames = rnames, rgroup = gear,
caption = "A simple <code>tidyHtmlTable</code> example using <code>mtcars</code>")
Advanced
While it may be sufficient for basic tables a more advanced layout is often needed in medical publications with elements such as:
- row groups
- column spanners
- table spanners
- caption
- table footer
- zebra coloring (also know as banding):
- rows
- columns
As many journals require that a MS Word-document is submitted it is furthermore also important that the table imports correctly to a word processor, i.e. that the table doesn't only look nice in a web browser but also in the final document. The htmlTable-function is written for all these purposes.
Note: Due to GitHub CSS-styles the rows get automatically zebra-striped (in a bad way), borders get overridden and I haven't been able to figure out how to change this. See the vignette for a correct example: vignette("general", package = "htmlTable")
For demonstration purposes we will setup a basic matrix:
mx <-
matrix(ncol=6, nrow=8) |>
set_rownames(paste(c("1st", "2nd", "3rd",
paste0(4:8, "th")),
"row")) |>
set_colnames(paste(c("1st", "2nd", "3rd",
paste0(4:6, "th")),
"hdr"))
for (nr in 1:nrow(mx)){
for (nc in 1:ncol(mx)){
mx[nr, nc] <-
paste0(nr, ":", nc)
}
}
Row groups
The purpose of the row groups is to group variables that belong to the same group, e.g. a factored variable with more than two levels often benefit from grouping variables together.
htmlTable(mx,
rgroup = paste("Group", LETTERS[1:3]),
n.rgroup = c(2,4,nrow(mx) - 6))
We can easily mix row groups with regular variables by having an empty row group name "":
htmlTable(mx,
rgroup = c(paste("Group", LETTERS[1:2]), ""),
n.rgroup = c(2,4,nrow(mx) - 6))
Related Skills
node-connect
341.8kDiagnose OpenClaw node connection and pairing failures for Android, iOS, and macOS companion apps
frontend-design
84.6kCreate distinctive, production-grade frontend interfaces with high design quality. Use this skill when the user asks to build web components, pages, or applications. Generates creative, polished code that avoids generic AI aesthetics.
openai-whisper-api
341.8kTranscribe audio via OpenAI Audio Transcriptions API (Whisper).
commit-push-pr
84.6kCommit, push, and open a PR
