library(presenter)
library(dplyr)

iris %>% 
  sample_n(10) %>% 
  relocate(Species) %>% 
  head %>% 
  arrange(Species) -> iris1

iris %>% 
  mutate(Species_random = sample(Species)) -> iris2

header_words <- c("Sepal", "Petal")

zebra_blue

default theme

iris1 %>% 
  make_flextable(header_words = header_words, last_id_col = 1)

zebra_gold

iris1 %>% 
  make_flextable(header_words = header_words, last_id_col = 1, theme = "zebra_gold")

tron

iris2 %>% 
  make_pivot_table(col1 = Species, col2 = Species_random, theme = "tron")

vader

iris1 %>% 
  make_flextable(header_words = header_words, last_id_col = 1, theme = "vader")

vanilla

iris2 %>% 
  make_pivot_table(col1 = Species, col2 = Species_random, theme = "vanilla")

booktabs

iris1 %>% 
  make_flextable(header_words = header_words, last_id_col = 1, theme = "booktabs")

alafoli

iris1 %>% 
  make_flextable(header_words = header_words, last_id_col = 1, theme = "alafoli")