Nothing
knitr::opts_chunk$set( collapse = TRUE, comment = "#>" )
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")
default theme
iris1 %>% make_flextable(header_words = header_words, last_id_col = 1)
iris1 %>% make_flextable(header_words = header_words, last_id_col = 1, theme = "zebra_gold")
iris2 %>% make_pivot_table(col1 = Species, col2 = Species_random, theme = "tron")
iris1 %>% make_flextable(header_words = header_words, last_id_col = 1, theme = "vader")
iris2 %>% make_pivot_table(col1 = Species, col2 = Species_random, theme = "vanilla")
iris1 %>% make_flextable(header_words = header_words, last_id_col = 1, theme = "booktabs")
iris1 %>% make_flextable(header_words = header_words, last_id_col = 1, theme = "alafoli")
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.