## ----include = FALSE---------------------------------------------------------- knitr::opts_chunk$set( collapse = TRUE, comment = "#>" ) ## ----example1----------------------------------------------------------------- library(dplyr) library(palmerpenguins) penguins |> select(species, sex, island) |> ftable() ## ----example2----------------------------------------------------------------- library(ivo.table) penguins |> select(species, sex, island) |> ivo_table() ## ----example3, eval = FALSE--------------------------------------------------- # penguins |> # select(species, sex, island) |> # ivo_table() |> # flextable::save_as_docx(path = "example_table.docx") ## ----example4----------------------------------------------------------------- penguins |> select(species, sex, island) |> ivo_table(colsums = TRUE, rowsums = TRUE) ## ----example5----------------------------------------------------------------- penguins |> select(species, sex, island) |> ivo_table(percent_by = "col") ## ----example6----------------------------------------------------------------- penguins |> select(species, sex, island) |> ivo_table(color = "red", font_name = "Courier", bold_cols = 1) ## ----example7----------------------------------------------------------------- penguins |> select(species, sex, island) |> ivo_table(caption = "A table with penguins in it", highlight_cols = 3, highlight_rows = 4) ## ----example8----------------------------------------------------------------- penguins |> select(species, sex, island) |> ivo_table(color = "darkblue") |> flextable::fontsize(size = 8, part = "body") |> flextable::fontsize(size = 12, part = "header") |> flextable::bg(bg = "pink", part = "all")