gt-workshop/06z-PRACTICE-05-06.qmd at main · rich-iannone/gt-workshop · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
---
title: "Practice with Modules 05 and 06"
format: html
html-table-processing: none
---

```{r}
library(gt)
library(tidyverse)
```

Final practice session.

### **gt** functions from module `05`

- `summary_rows()`
- `grand_summary_rows()`

### From module `06`

- `opt_footnote_marks()`
- `opt_row_striping()`
- `opt_align_table_header()`
- `opt_all_caps()`
- `opt_table_lines()`
- `opt_table_outline()`
- `opt_table_font()`
- `opt_css()`
- `google_font()`
- `default_fonts()`
- `info_google_fonts()`

#### Suggestions for practice

Try out some of the `opt_*()` functions on the table below. Also, set a default table font using `opt_table_font()` and `google_font()`. Use `info_google_fonts()` to get the names of some of Google's Fonts.

```{r}
exibble |>
  gt(rowname_col = "row", groupname_col = "group") |>
  tab_header(title = "The title", subtitle = "The subtitle") |>
  tab_source_note("A source note.") |>
  tab_footnote(
    footnote = "A footnote",
    locations = cells_body(columns = 1, rows = 1)
  ) |>
  tab_style(
    style = cell_fill(color = "#E5873A"),
    locations = cells_body(columns = char, rows = 1)
  )
```