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
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.