styled_table <- tabulate_table() %>%
table_add_row(c("Bold", "Italic", "Bold & Italic", "Blinking")) %>%
table_add_row(c("Underline", "Crossed", "Dark", "Bold, Italic & Underlined"))
styled_table[1,1] %>% format_font_style("bold")
styled_table[1,2] %>% format_font_style("italic")
styled_table[1,3] %>% format_font_style(c("bold", "italic"))
styled_table[1,4] %>% format_font_style("blink")
styled_table[2,1] %>% format_font_style("underline")
styled_table[2,2] %>% format_font_style("crossed")
styled_table[2,3] %>% format_font_style("dark")
styled_table[2,4] %>% format_font_style(c("bold", "italic", "underline"))
print(styled_table)
#> +-----------+---------+---------------+---------------------------+
#> | Bold | Italic | Bold & Italic | Blinking |
#> +-----------+---------+---------------+---------------------------+
#> | Underline | Crossed | Dark | Bold, Italic & Underlined |
#> +-----------+---------+---------------+---------------------------+