knitr::opts_chunk$set(echo = TRUE)
library(huxtable)
options(huxtable.bookdown = TRUE)
ht <- huxtable(head(cars))
caption(ht) <- "First Table"
ht <- theme_article(ht)
ht
ht <- huxtable(tail(cars))
caption(ht) <- "Second Table"
ht <- theme_article(ht)
ht
ht <- huxtable(cars[sample(1:nrow(cars),6),])
caption(ht) <- "Third Table"
ht <- theme_article(ht)
ht
ht <- huxtable(cars[sample(1:nrow(cars),6),])
caption(ht) <- "Fourth Table"
ht <- theme_article(ht)
ht


hughjonesd/huxtable documentation built on Feb. 17, 2024, 12:20 a.m.