-
Notifications
You must be signed in to change notification settings - Fork 0
/
A4-glossary.qmd
45 lines (37 loc) · 1.07 KB
/
A4-glossary.qmd
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
# Glossary {#glossary}
<!-- `r ifelse(knitr::is_html_output(), '@tbl-glossary-html', '@tbl-glossary-pdf')` describes the common terms used throughout the book and their synonyms which might be used elsewhere.-->
```{r}
#| message: false
#| echo: false
library(readr)
glossary <- read_csv("misc/glossary.csv")
```
::: {.content-visible when-format="html"}
```{r}
#| message: false
#| echo: false
#| label: tbl-glossary-html
#| tbl-cap: "List of common terms used in the book and their synonyms used elsewhere."
library(gt)
library(gtExtras)
library(gtsummary)
glossary %>% gt() %>% cols_width(Term~px(100),
Synonyms~px(200),
Description~px(150))
```
:::
::: {.content-visible when-format="pdf"}
```{r}
#| message: false
#| echo: false
library(kableExtra)
glossary |>
knitr::kable(format="latex", booktabs = T) |>
kable_paper(full_width = F) |>
kable_styling() |>
column_spec(1, width = "2cm") |>
column_spec(2, width = "4cm") |>
column_spec(3, width = "6cm") |>
row_spec(1:9, hline_after = TRUE)
```
:::