Themes

library(flextable)

# Correct: add all structure first, then apply the theme
ft <- flextable(head(airquality))
ft <- add_footer_lines(ft, "Source: NYDEC")
ft <- theme_vanilla(ft)
ft

ft <- flextable(head(airquality))
ft <- theme_vanilla(ft)
ft

ft <- flextable(head(airquality))
ft <- theme_booktabs(ft)
ft

ft <- theme_booktabs(ft, bold_header = TRUE)

ft <- flextable(head(airquality))
ft <- theme_box(ft)
ft

ft <- flextable(head(airquality))
ft <- theme_borderless(ft)
ft

ft <- flextable(head(airquality))
ft <- theme_zebra(ft)
ft

ft <- theme_zebra(
  ft,
  odd_header  = "#4472C4",
  odd_body    = "#D9E1F2",
  even_header = "#2E75B6",
  even_body   = "transparent"
)

ft <- flextable(head(airquality))
ft <- theme_alafoli(ft)
ft

ft <- flextable(head(mtcars * 22.22))
ft <- theme_apa(ft)
ft

ft <- flextable(head(airquality))
ft <- theme_vader(ft)
ft

set_flextable_defaults(theme_fun = theme_booktabs)

# All subsequent flextable() calls will apply theme_booktabs automatically
ft1 <- flextable(head(iris))
ft2 <- flextable(head(mtcars))

set_flextable_defaults(
  post_process_html = function(ft) {
    theme_vanilla(ft)
  }
)