# List of Abbreviations {#sec-list-of-abbreviations .unnumbered}
```{r}
#| label: setup
#| echo: false
#| message: false
# Load necessary libraries
library(knitr)
library(kableExtra)
library(dplyr)
library(magrittr)
# Set global options for knitr
# knitr::opts_chunk$set(
# echo = FALSE,
# message = FALSE,
# warning = FALSE,
# fig.width = 6,
# fig.height = 4
# )
```
```{r}
#| label: tbl-abbreviations
#| tbl-cap: "Table of Abbreviations"
#| tbl-colwidths: [25,75]
#| cache: false
# Create a data frame for the abbreviations read from abreviations.csv
abbreviations <- read.csv("tables/abbreviations.csv", stringsAsFactors = FALSE)
# Create a table with the abbreviations
abbreviations %>%
arrange(abbreviation) %>%
distinct(abbreviation, .keep_all = TRUE) %>%
rename(
Abbreviation = abbreviation,
Expansion = expansion
) %>%
kable()
```