# flextableThemes

    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")