In cardiomoon/moonBook: Functions and Datasets for the Book by Keon-Woong Moon

library(flextable)
library(htmltools)
library(knitr)

opts_chunk$set(echo = TRUE)

ft_list <- list()

ft1 <- qflextable( head( airquality ))
ft1 <- set_caption(ft1,"airquality table")
ft_list[[1]] <- ft1

ft2 <- qflextable( tail( mtcars ))
ft2 <- set_caption(ft2,"mtcars table")
ft_list[[2]] <- ft2

div(flextable_html_dependency())

for(i in seq_along(ft_list)){
  flextable_to_rmd(ft_list[[i]])
}

cardiomoon/moonBook documentation built on Jan. 3, 2024, 8:15 p.m.