diff --git a/DESCRIPTION b/DESCRIPTION
index c3931470..4d2399d1 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -52,6 +52,7 @@ Collate:
     'data_inventory_table.R'
     'demographics-table.R'
     'discrete_table.R'
+    'glossary.R'
     'knit-dependencies.R'
     'preview-standalone.R'
     'preview.R'
diff --git a/NAMESPACE b/NAMESPACE
index ddef5346..7381d47d 100644
--- a/NAMESPACE
+++ b/NAMESPACE
@@ -1,6 +1,10 @@
 # Generated by roxygen2: do not edit by hand
 
+S3method("[",glossary)
+S3method(as.data.frame,glossary)
 S3method(as.list,digits)
+S3method(as.list,glossary)
+S3method(as.list,glossary_entry)
 S3method(as.panel,"NULL")
 S3method(as.panel,character)
 S3method(as.panel,quosures)
@@ -8,12 +12,18 @@ S3method(as.panel,rowpanel)
 S3method(as_stable,pmtable)
 S3method(as_stable,stable)
 S3method(as_stable,stobject)
+S3method(c,glossary)
+S3method(glossary_notes,character)
+S3method(glossary_notes,glossary)
+S3method(glossary_notes,list)
 S3method(names,stobject)
 S3method(new_names,character)
 S3method(new_names,list)
 S3method(new_names,quosures)
 S3method(new_names,rowpanel)
 S3method(print,digits)
+S3method(print,glossary)
+S3method(print,glossary_entry)
 S3method(print,st_caption)
 S3method(print,stable_data)
 S3method(print,stobject)
@@ -38,6 +48,7 @@ export(.cols)
 export(as.caption)
 export(as.panel)
 export(as.span)
+export(as_glossary)
 export(as_lscape)
 export(as_stable)
 export(cat_data)
@@ -59,6 +70,7 @@ export(digit1)
 export(ensure_parens)
 export(find_bq_col)
 export(get_stable_data)
+export(glossary_notes)
 export(is.colgroup)
 export(is.colsplit)
 export(is.rowpanel)
@@ -80,8 +92,10 @@ export(pt_data_study)
 export(pt_demographics)
 export(pt_wrap)
 export(ptdata)
+export(read_glossary)
 export(rnd)
 export(rowpanel)
+export(select_glossary)
 export(sig)
 export(st2article)
 export(st2doc)
@@ -122,6 +136,7 @@ export(st_notes)
 export(st_notes_app)
 export(st_notes_conf)
 export(st_notes_detach)
+export(st_notes_glo)
 export(st_notes_rm)
 export(st_notes_str)
 export(st_notes_sub)
@@ -156,6 +171,7 @@ export(tab_spanners)
 export(tex_bold)
 export(tex_it)
 export(triage_data)
+export(update_abbrev)
 export(yaml_as_df)
 importFrom(assertthat,assert_that)
 importFrom(assertthat,validate_that)
@@ -205,10 +221,12 @@ importFrom(purrr,walk)
 importFrom(rlang,":=")
 importFrom(rlang,.data)
 importFrom(rlang,.env)
+importFrom(rlang,abort)
 importFrom(rlang,as_string)
 importFrom(rlang,enquo)
 importFrom(rlang,enquos)
 importFrom(rlang,env_clone)
+importFrom(rlang,expr)
 importFrom(rlang,have_name)
 importFrom(rlang,is_atomic)
 importFrom(rlang,is_empty)
@@ -216,6 +234,7 @@ importFrom(rlang,is_named)
 importFrom(rlang,quo_get_expr)
 importFrom(rlang,sym)
 importFrom(rlang,syms)
+importFrom(rlang,warn)
 importFrom(stats,median)
 importFrom(stats,na.omit)
 importFrom(stats,rnorm)
diff --git a/R/AAAA.R b/R/AAAA.R
index 2dac9102..97925be8 100644
--- a/R/AAAA.R
+++ b/R/AAAA.R
@@ -11,8 +11,8 @@
 #' @importFrom tidyr complete
 #' @importFrom forcats fct_inorder
 #' @importFrom rlang sym syms quo_get_expr as_string := .data .env is_empty
-#' @importFrom rlang enquo enquos is_named is_atomic have_name
-#' @importFrom rlang env_clone
+#' @importFrom rlang enquo enquos expr is_named is_atomic have_name
+#' @importFrom rlang env_clone abort warn
 #' @importFrom glue glue
 #' @importFrom tibble tibble as_tibble is_tibble
 #' @importFrom stats median rnorm sd na.omit setNames update
diff --git a/R/glossary.R b/R/glossary.R
new file mode 100644
index 00000000..76fc6182
--- /dev/null
+++ b/R/glossary.R
@@ -0,0 +1,398 @@
+#' Read and parse a glossary file
+#'
+#' Files may be formatted as TeX glossary file or
+#' in yaml format suitable for reading using
+#' [yaml_as_df()] (see details).
+#'
+#' @param file path to the tex or yaml glossary file.
+#' @param format the glossary file format; could be either `"tex"` or `"yaml"`
+#' and will be inferred by default from the extension of `file`.
+#'
+#' @return
+#' A named list of glossary definitions with class `tex_glossary` and
+#' `glossary`. The list names are acronym entry labels (i.e., what you would
+#' pass to `\gls{}` when writing a tex document).
+#'
+#'
+#' @details
+#' For the tex format, the glossary file is expected to contain acronym
+#' entries with the form
+#'
+#' ```
+#' \newacronym{label}{abbreviation}{definition}
+#' ```
+#'
+#' or
+#'
+#' ```
+#' \newacronym[options]{label}{abbreviation}{definition}
+#' ```
+#'
+#' For the yaml format, the glossary file is expected to be able to be
+#' read with [yaml_as_df()]; the outer level should be the `label` and
+#' columns should be provided with the names `def` (definition) and
+#' `abb` (abbreviation). See **Examples**.
+#'
+#'
+#'
+#' @examples
+#' texfile <- system.file("glo", "glossary.tex", package = "pmtables")
+#'
+#' x <- read_glossary(texfile)
+#'
+#' head(x)
+#'
+#' x$WT
+#'
+#' x$SC
+#'
+#' yamfile <- system.file("glo", "glossary.yaml", package = "pmtables")
+#'
+#' y <- read_glossary(yamfile)
+#' head(y)
+#'
+#' # Format of the tex glossary file
+#' head(readLines(texfile))
+#'
+#' # Format of the yaml glossary file
+#' head(readLines(yamfile))
+#'
+#' yaml_as_df(yamfile)
+#'
+#'
+#' @seealso [as_glossary()]
+#' @export
+read_glossary <- function(file, format = guess_glo_fmt(file)) {
+  if(!file.exists(file)) {
+    abort(glue("Glossary file {file} does not exist."))
+  }
+  if(!format %in% c("tex", "yaml", "yml")) {
+    abort("format should be either tex, yaml, or yml")
+  }
+  if(format == "tex") {
+    ans <- read_tex_glossary(file)
+  } else {
+    ans <- read_yaml_glossary(file)
+  }
+  class(ans) <- c("tex_glossary", "glossary", "list")
+  ans
+}
+
+read_yaml_glossary <- function(file) {
+  parsed <- try(yaml_as_df(file, row_var = "label"), silent = TRUE)
+  if(inherits(parsed, "try-error")) {
+    abort(
+      c("Failed to parse glossary file; see ?yaml_as_df() for help formatting this file.",
+        as.character(parsed)
+      )
+    )
+  }
+  if(!all(c("label", "abb", "def") %in% names(parsed))) {
+    abort("yaml/yml glossary format requires names label, abb, and def.")
+  }
+  labels <- parsed[["label"]]
+  parsed <- select(parsed, "abb", "def")
+  data <- split(parsed, seq(nrow(parsed)))
+  data <- lapply(data, unlist)
+  data <- lapply(data, as_glossary_entry)
+  data <- lapply(data, setNames, c("abbreviation", "definition"))
+  names(data) <- labels
+  data
+}
+
+read_tex_glossary <- function(file) {
+  txt <- readLines(file, warn = FALSE)
+  if(!length(txt)) abort("The glossary file was empty.")
+  parse_tex_glossary(txt)
+}
+
+parse_tex_glossary <- function(txt) {
+  txt <- trimws(txt)
+  txt <- txt[grepl("^\\\\newacronym", txt)]
+  txt <- sub("[^\\\\]%.*", "", txt, perl = TRUE)
+  m <- regexec("\\{(.+)\\}\\s*\\{(.+)\\}\\s*\\{(.+)\\}.*$", txt, perl = TRUE)
+  parsed <- regmatches(txt, m)
+  parsed <- lapply(parsed, trimws)
+  if(!length(parsed)) {
+    abort("No acronym entries were found in `file`.")
+  }
+  if(!all(vapply(parsed, length, 1L)==4)) {
+    abort("There was a problem parsing the glossary file.")
+  }
+  label <- vapply(parsed, FUN = "[", 2L, FUN.VALUE = "a")
+  data <- lapply(parsed, FUN = "[", c(3L, 4L))
+  data <- lapply(data, as_glossary_entry)
+  data <- lapply(data, setNames, c("abbreviation", "definition"))
+  names(data) <- label
+  data
+}
+
+#' Update the abbreviation for a glossary entry
+#'
+#' @param x a glossary object.
+#' @param ... `<label> = <new abbreviation>` pairs; if just the
+#' `<label>` is passed, it will be used as the new update
+#' abbreviation value.
+#'
+#' @examples
+#' x <- as_glossary(list(ka = "absorption rate constant"))
+#'
+#' x <- update_abbrev(x, ka = "\\ensuremath{k_a}")
+#'
+#' x$ka
+#'
+#' x <- update_abbrev(x, ka)
+#'
+#' x$ka
+#'
+#' @seealso [as_glossary()]
+#' @export
+update_abbrev <- function(x, ...) {
+  require_glossary(x)
+  items <- new_names(enquos(...))
+  abort_bad_glo_labels(x, names(items))
+  for(m in seq_along(items)) {
+    x[[names(items[m])]]$abbreviation <- items[[m]]
+  }
+  x
+}
+
+#' Create a new glossary object
+#'
+#' Rather than reading from a file, glossary objects can be created inline.
+#'
+#' @param ... unquoted `<label> = <definition>` pairs, or a named list
+#' of abbreviations where the names are the labels; see **Examples**.
+#'
+#' @details
+#' For all entries in the new object, the abbreviation is set to the label.
+#' See [update_abbrev()] to customize the abbreviation.
+#'
+#' Entries that have duplicate labels will be dropped with a warning.
+#'
+#' @return
+#' A new glossary object.
+#'
+#' @seealso [read_glossary()], [update_abbrev()]
+#'
+#' @examples
+#'
+#' as_glossary(wt = "weight", ht = "height", bmi = "body mass index")
+#'
+#' as_glossary(wt = "weight", ht = "height", wt = "baseline weight")
+#'
+#' l <- list(VPC = "visual predictive check", tz = "timezone")
+#'
+#' as_glossary(l)
+#'
+#' as_glossary(l, wt = "weight")
+#'
+#' @seealso [update_abbrev()]
+#' @export
+as_glossary <- function(...) {
+  x <- purrr::list_flatten(list(...))
+  if(!is.list(x) || !is_named(x)) {
+    abort("items in `...` must resolve to a named list.")
+  }
+  if(anyDuplicated(names(x))) {
+    duplicates <- duplicated(names(x))
+    drop <- paste0(names(x)[duplicates], ": ", x[duplicates])
+    names(drop) <- rep("*", length(drop))
+    warn("Dropping duplicate glossary labels:", body = drop)
+    x <- x[!duplicates]
+  }
+  type_chr <- vapply(x, inherits, what = "character", FUN.VALUE = TRUE)
+  len <- vapply(x, length, FUN.VALUE = 1)
+  if(!all(type_chr & len==1)) {
+    abort("Every `glossary` entry must have type character and length 1.")
+  }
+  glossary <- Map(x, names(x), f = function(def, label) {
+    data <- c(definition = def, abbreviation = label)
+    as_glossary_entry(data)
+  })
+  class(glossary) <- c("tex_glossary", "glossary", "list")
+  glossary
+}
+
+as_glossary_entry <- function(x) {
+  x <- as.list(x)
+  class(x) <- c("glossary_entry", "list")
+  x
+}
+
+abort_bad_glo_labels <- function(x, what) {
+  if(!all(what %in% names(x))) {
+    bad <- setdiff(what, names(x))
+    names(bad) <- rep("x", length(bad))
+    msg <- c("Requested definitions not found in glossary object", bad)
+    abort(msg)
+  }
+}
+
+#' Return formatted notes from a tex glossary file or glossary object
+#'
+#' @param x path to a tex glossary file, a glossary object, or a list that can
+#' be coerced to a glossary object with [as_glossary()].
+#'
+#' @inheritParams read_glossary
+#' @inheritParams st_notes_glo
+#'
+#' @examples
+#' file <- system.file("glo", "glossary.tex", package = "pmtables")
+#'
+#' glossary_notes(file, WT, CRCL)
+#'
+#' g <- as_glossary(ss = "steady state", ALB = "albumin", WT = "weight")
+#'
+#' glossary_notes(g, ALB, ss)
+#'
+#' what <- c("WT", "NCA", "NPDE")
+#'
+#' g <- read_glossary(file)
+#'
+#' glossary_notes(g, tidyselect::all_of(what))
+#'
+#' l <- list(ss = "steady state", ALB = "albumin", WT = "weight")
+#'
+#' glossary_notes(l, ALB, ss)
+#'
+#' @seealso [st_notes_glo()], [read_glossary()]
+#' @export
+glossary_notes <- function(x, ...) UseMethod("glossary_notes")
+
+#' @param ... unquoted glossary labels to be included in the notes text.
+#' @param format passed to [read_glossary()].
+#' @rdname glossary_notes
+#' @export
+glossary_notes.character <- function(x, ..., format = guess_glo_fmt(x)) {
+  x <- read_glossary(x, format = format)
+  glossary_notes(x, ...)
+}
+
+#' @rdname glossary_notes
+#' @export
+glossary_notes.list <- function(x, ...) {
+  x <- as_glossary(x)
+  glossary_notes(x, ...)
+}
+
+#' @rdname glossary_notes
+#' @export
+glossary_notes.glossary <- function(x, ..., sep = ": ", collapse = "; ") {
+  labels <- names(eval_select(expr(c(...)), x))
+  if(!length(labels)) labels <- names(x)
+  build_glossary_notes(x, labels, sep, collapse)
+}
+
+build_glossary_notes <- function(glossary, labels, sep, collapse) {
+  abort_bad_glo_labels(glossary, labels)
+  glossary <- glossary[labels]
+  abb <- vapply(glossary, "[[", "abbreviation", FUN.VALUE = "a")
+  notes <- lapply(glossary, "[[", "definition")
+  notes <- paste0(abb, sep, notes)
+  if(is.character(collapse)) {
+    notes <- paste0(notes, collapse = collapse)
+  }
+  notes
+}
+
+#' @export
+print.glossary_entry <- function(x, ...) {
+  cat(paste0(x$definition, " (", x$abbreviation, ")\n"))
+}
+
+#' @export
+print.glossary <- function(x, ...) {
+  if(!length(x)) {
+    cat("No glossary entries found.")
+    return(invisible(NULL))
+  }
+  label <- names(x)
+  def <- map_chr(x, "definition")
+  def <- substr(def, 0, 40)
+  pad <- ifelse(nchar(def) >= 40, "...", "")
+  def <- paste0(def, pad)
+  label <- formatC(label, width = max(nchar(label)), flag = "-")
+  cat(paste0(label, " : ", def), sep = "\n")
+}
+
+#' @export
+as.data.frame.glossary <- function(x, ...) {
+  data.frame(
+    label = names(x),
+    definition = map_chr(x, "definition"),
+    abbreviation = map_chr(x, "abbreviation"),
+    row.names = NULL
+  )
+}
+
+#' @export
+as.list.glossary <- function(x, ...) {
+  class(x) <- "list"
+  x <- lapply(x, as.list)
+  x
+}
+
+#' @export
+as.list.glossary_entry <- function(x, ...) {
+  class(x) <- "list"
+  x
+}
+
+#' @export
+c.glossary <- function(..., recursive = FALSE) {
+  args <- list(...)
+  if (!length(args)) {
+    return(NULL)
+  }
+  if (!all(map_lgl(args, function(x) inherits(x, "glossary")))) {
+    stop("All arguments must be glossary objects.")
+  }
+
+  cl <- class(args[[1]])
+  n <- sum(map_int(args, length))
+  nms <- unique(unlist(lapply(args, names)))
+  if (n > length(nms)) {
+    stop("Arguments cannot share any names.")
+  }
+
+  res <- do.call(c, lapply(args, unclass))
+  return(structure(res, class = cl))
+}
+
+#' @export
+`[.glossary` <- function(x, ...) {
+  structure(NextMethod(), class = class(x))
+}
+
+#' Select entries from a glossary object
+#'
+#' @param x a glossary object.
+#' @param ... tidy-select syntax naming glossary entry labels to select.
+#'
+#' @return
+#' A new glossary object with selected entries.
+#'
+#' @examples
+#' gl <- as_glossary(list(a = "apple", b = "banana", c = "cat", d = "dog"))
+#'
+#' select_glossary(gl, b, d)
+#'
+#' @export
+select_glossary <- function(x, ...) {
+  what <- eval_select(expr(c(...)), x)
+  x[what]
+}
+
+require_glossary <- function(x) {
+  if(!inherits(x, "glossary")) {
+    abort("`x` is not a glossary object")
+  }
+}
+
+guess_glo_fmt <- function(filename) {
+  ext <- tools::file_ext(filename)
+  if(ext=="tex") return("tex")
+  if(ext %in% c("yml", "yaml")) return("yaml")
+  abort("Could not guess glossary format from file extension.")
+}
diff --git a/R/table-object.R b/R/table-object.R
index cd6f36b4..0055294e 100644
--- a/R/table-object.R
+++ b/R/table-object.R
@@ -388,6 +388,48 @@ st_noteconf <- function(x,...) {
 #' @export
 st_notes_conf <- st_noteconf
 
+#' Add table notes based on acronyms from a tex glossary file
+#'
+#' @param x an stobject.
+#' @param glossary a glossary object generated from [read_glossary()] or
+#' [as_glossary()].
+#' @param ... unquoted names matching those names in `glossary`.
+#' @param sep character to separate name and value.
+#' @param collapse a character used to collapse definitions into a
+#' single string.
+#' @param width if numeric, [st_notes_detach()] will be called with `width`
+#' argument.
+#' @param labels a character vector or comma-separates string of definition
+#' labels to get appended to the end of names passed in `...`.
+#'
+#' @examples
+#' library(dplyr)
+#'
+#' file <- system.file("glo", "glossary.tex", package = "pmtables")
+#'
+#' x <- read_glossary(file)
+#'
+#' st_new(stdata()) %>%
+#'   st_notes_glo(x, WT, CRCL, SCR, width = 1) %>%
+#'   stable()
+#'
+#' @seealso [glossary_notes()], [read_glossary()]
+#' @export
+st_notes_glo <- function(x, glossary, ..., sep = ": ", collapse = "; ",
+                         labels = NULL, width = NULL) {
+  if(!is.list(glossary) || !is_named(glossary)) {
+    abort("`glossary` must be a named list.")
+  }
+  labels <- cvec_cs(labels)
+  labels <- c(new_names(enquos(...)), labels)
+  if(!length(labels)) labels <- names(glossary)
+  notes <- build_glossary_notes(glossary, labels, sep, collapse)
+  if(is.numeric(width)) {
+    x <- st_notes_detach(x, width = width)
+  }
+  st_notes(x, notes)
+}
+
 #' Add column alignment information to st object
 #'
 #' See the `align` argument to [stable()]. This function may be called several
diff --git a/R/utils.R b/R/utils.R
index 5ee48868..784054bf 100644
--- a/R/utils.R
+++ b/R/utils.R
@@ -175,3 +175,4 @@ ensure_parens <- function(x) {
   x[where] <- paste0("(", x[where], ")")
   x
 }
+
diff --git a/inst/covr/coverage.md b/inst/covr/coverage.md
index 67ea8ee3..bcd7c965 100644
--- a/inst/covr/coverage.md
+++ b/inst/covr/coverage.md
@@ -1,14 +1,15 @@
-# coverage: 92.53%
+# coverage: 92.1%
 
 |file                     | coverage|
 |:------------------------|--------:|
 |R/AAAA.R                 |     0.00|
 |R/preview.R              |    66.67|
 |R/table-utils.R          |    74.12|
-|R/utils.R                |    82.81|
+|R/preview-standalone.R   |    81.33|
+|R/utils.R                |    84.38|
 |R/table-tabular.R        |    85.11|
-|R/preview-standalone.R   |    85.64|
-|R/table-object.R         |    86.02|
+|R/table-object.R         |    85.76|
+|R/glossary.R             |    86.86|
 |R/table-align.R          |    86.96|
 |R/table-sumrow.R         |    87.76|
 |R/table-hlines.R         |    87.88|
diff --git a/inst/covr/zero.md b/inst/covr/zero.md
index 3f5a3fb1..254b321a 100644
--- a/inst/covr/zero.md
+++ b/inst/covr/zero.md
@@ -3,23 +3,41 @@
 "10","R/check.R","columns_exist",4,0
 "247","R/check.R","check_continuous",29,0
 "556","R/check.R","check_discrete",53,0
-"694","R/check.R","check_discrete",67,0
+"695","R/check.R","check_discrete",67,0
 "244","R/class-digits.R","new_digits",28,0
 "180","R/class-new_names.R","new_names.list",22,0
 "507","R/continuous_table.R","cont_table_data",48,0
 "519","R/continuous_table.R","cont_table_data",49,0
-"1451","R/continuous_table.R","pt_cont_wide",149,0
-"2125","R/continuous_table.R","pt_cont_long",318,0
-"2465","R/continuous_table.R","invert_panel_by",433,0
-"2480","R/continuous_table.R","invert_panel_by",440,0
-"772","R/data_inventory_table.R","data_inventory_chunk",74,0
-"780","R/data_inventory_table.R","data_inventory_chunk",75,0
-"1784","R/data_inventory_table.R","pt_data_study",214,0
-"2104","R/demographics-table.R","pt_demographics",310,0
-"2106","R/demographics-table.R","pt_demographics",311,0
-"2109","R/demographics-table.R","pt_demographics",312,0
-"2110","R/demographics-table.R","pt_demographics",313,0
-"1563","R/discrete_table.R","pt_cat_long",165,0
+"1496","R/continuous_table.R","pt_cont_wide",149,0
+"2230","R/continuous_table.R","pt_cont_long",318,0
+"2605","R/continuous_table.R","invert_panel_by",433,0
+"2619","R/continuous_table.R","invert_panel_by",440,0
+"778","R/data_inventory_table.R","data_inventory_chunk",74,0
+"786","R/data_inventory_table.R","data_inventory_chunk",75,0
+"1854","R/data_inventory_table.R","pt_data_study",214,0
+"2203","R/demographics-table.R","pt_demographics",310,0
+"2206","R/demographics-table.R","pt_demographics",311,0
+"2210","R/demographics-table.R","pt_demographics",312,0
+"2212","R/demographics-table.R","pt_demographics",313,0
+"1614","R/discrete_table.R","pt_cat_long",165,0
+"739","R/glossary.R","read_glossary",70,0
+"957","R/glossary.R","read_yaml_glossary",91,0
+"1089","R/glossary.R","read_tex_glossary",105,0
+"1242","R/glossary.R","parse_tex_glossary",120,0
+"1819","R/glossary.R","as_glossary",207,0
+"2167","R/glossary.R","print.glossary_entry",301,0
+"2186","R/glossary.R","print.glossary",306,0
+"2190","R/glossary.R","print.glossary",307,0
+"2194","R/glossary.R","print.glossary",308,0
+"2201","R/glossary.R","print.glossary",310,0
+"2204","R/glossary.R","print.glossary",311,0
+"2208","R/glossary.R","print.glossary",312,0
+"2211","R/glossary.R","print.glossary",313,0
+"2214","R/glossary.R","print.glossary",314,0
+"2217","R/glossary.R","print.glossary",315,0
+"2221","R/glossary.R","print.glossary",316,0
+"2354","R/glossary.R","c.glossary",346,0
+"2373","R/glossary.R","c.glossary",349,0
 "19","R/preview-standalone.R","require_magick",5,0
 "91","R/preview-standalone.R","require_pdftools",13,0
 "156","R/preview-standalone.R","require_knitr",20,0
@@ -28,100 +46,103 @@
 "261","R/preview-standalone.R","fail_png",30,0
 "310","R/preview-standalone.R","fail_pdf",34,0
 "326","R/preview-standalone.R","fail_pdf",35,0
-"738","R/preview-standalone.R","st_to_standalone",70,0
-"984","R/preview-standalone.R","st_to_standalone",96,0
-"990","R/preview-standalone.R","st_to_standalone",97,0
-"998","R/preview-standalone.R","st_to_standalone",98,0
-"1317","R/preview-standalone.R","st_to_standalone",133,0
-"1326","R/preview-standalone.R","st_to_standalone",134,0
-"1819","R/preview-standalone.R","st2pdf",220,0
-"2011","R/preview-standalone.R","st2png",278,0
-"2024","R/preview-standalone.R","st2png",282,0
-"2102","R/preview-standalone.R","dvi_to_png",310,0
-"2431","R/preview-standalone.R","st_image_show",416,0
-"2434","R/preview-standalone.R","st_image_show",419,0
-"2446","R/preview-standalone.R","st_image_show",424,0
-"2455","R/preview-standalone.R","st_image_show",427,0
-"2458","R/preview-standalone.R","st_image_show",428,0
-"2460","R/preview-standalone.R","st_image_show",429,0
-"2461","R/preview-standalone.R","st_image_show",430,0
-"2463","R/preview-standalone.R","st_image_show",431,0
-"2544","R/preview-standalone.R","stable_save_image",512,0
+"742","R/preview-standalone.R","st_to_standalone",70,0
+"825","R/preview-standalone.R","st_to_standalone",78,0
+"1006","R/preview-standalone.R","st_to_standalone",96,0
+"1013","R/preview-standalone.R","st_to_standalone",97,0
+"1022","R/preview-standalone.R","st_to_standalone",98,0
+"1362","R/preview-standalone.R","st_to_standalone",133,0
+"1371","R/preview-standalone.R","st_to_standalone",134,0
+"1892","R/preview-standalone.R","st2pdf",220,0
+"2094","R/preview-standalone.R","st2png",278,0
+"2108","R/preview-standalone.R","st2png",282,0
+"2151","R/preview-standalone.R","dvi_to_png",296,0
+"2200","R/preview-standalone.R","dvi_to_png",310,0
+"2568","R/preview-standalone.R","st_image_show",416,0
+"2571","R/preview-standalone.R","st_image_show",419,0
+"2582","R/preview-standalone.R","st_image_show",424,0
+"2593","R/preview-standalone.R","st_image_show",427,0
+"2597","R/preview-standalone.R","st_image_show",428,0
+"2600","R/preview-standalone.R","st_image_show",429,0
+"2601","R/preview-standalone.R","st_image_show",430,0
+"2604","R/preview-standalone.R","st_image_show",431,0
 "40","R/preview.R","form_caption",8,0
-"2498","R/preview.R","st_latex",461,0
-"2500","R/preview.R","st_latex",462,0
-"2502","R/preview.R","st_latex",463,0
-"2504","R/preview.R","st_latex",464,0
-"2507","R/preview.R","st_latex",466,0
-"2510","R/preview.R","st_latex",467,0
-"2514","R/preview.R","st_latex",469,0
-"2516","R/preview.R","st_latex",470,0
-"2518","R/preview.R","st_latex",472,0
+"2636","R/preview.R","st_latex",461,0
+"2639","R/preview.R","st_latex",462,0
+"2642","R/preview.R","st_latex",463,0
+"2645","R/preview.R","st_latex",464,0
+"2649","R/preview.R","st_latex",466,0
+"2651","R/preview.R","st_latex",467,0
+"2654","R/preview.R","st_latex",469,0
+"2655","R/preview.R","st_latex",470,0
+"2656","R/preview.R","st_latex",472,0
 "251","R/summary-functions.R","cont_wide_fun",29,0
-"750","R/summary-functions.R","cont_long_fun",72,0
-"1129","R/summary-functions.R","n_total",112,0
-"935","R/table-align.R","col_fixed",91,0
-"943","R/table-align.R","col_fixed",92,0
-"951","R/table-align.R","col_fixed",93,0
-"1085","R/table-align.R","form_align",108,0
-"1200","R/table-align.R","form_align",120,0
-"1282","R/table-align.R","form_align",129,0
-"1290","R/table-align.R","form_align",130,0
-"1386","R/table-align.R","update.aligncol",141,0
-"1470","R/table-align.R","update.aligncol",151,0
+"754","R/summary-functions.R","cont_long_fun",72,0
+"1160","R/summary-functions.R","n_total",112,0
+"952","R/table-align.R","col_fixed",91,0
+"961","R/table-align.R","col_fixed",92,0
+"969","R/table-align.R","col_fixed",93,0
+"1114","R/table-align.R","form_align",108,0
+"1238","R/table-align.R","form_align",120,0
+"1327","R/table-align.R","form_align",129,0
+"1335","R/table-align.R","form_align",130,0
+"1431","R/table-align.R","update.aligncol",141,0
+"1516","R/table-align.R","update.aligncol",151,0
 "314","R/table-clear_reps.R","reps_to_clear",34,0
-"866","R/table-clear_reps.R","deduplicate_values",83,0
+"876","R/table-clear_reps.R","deduplicate_values",83,0
 "132","R/table-hlines.R","tab_hlines",17,0
 "580","R/table-hlines.R","find_hline_df",56,0
 "607","R/table-hlines.R","find_hline_df",58,0
 "635","R/table-hlines.R","find_hline_df",61,0
 "121","R/table-long.R","ltcaption",16,0
 "220","R/table-long.R","ltcaption",26,0
-"1175","R/table-notes.R","mini_notes",117,0
-"1539","R/table-notes.R","valid_file_notes_fun",160,0
-"793","R/table-object.R","st_new.pmtable",76,0
-"940","R/table-object.R","st_data",91,0
-"1362","R/table-object.R","st_make",139,0
-"1371","R/table-object.R","st_make",140,0
-"1824","R/table-object.R","st_notes",221,0
-"1885","R/table-object.R","st_notes",236,0
-"1965","R/table-object.R","st_notes_str",265,0
-"2477","R/table-object.R","st_left",438,0
-"2513","R/table-object.R","st_files",469,0
-"2519","R/table-object.R","st_files",473,0
-"2525","R/table-object.R","st_space",497,0
-"2527","R/table-object.R","st_space",498,0
-"2529","R/table-object.R","st_space",499,0
-"2531","R/table-object.R","st_space",501,0
-"2533","R/table-object.R","st_space",502,0
-"2536","R/table-object.R","st_space",504,0
-"2575","R/table-object.R","st_span",538,0
-"2616","R/table-object.R","st_sumrow",670,0
-"2619","R/table-object.R","st_sumrow",674,0
-"2620","R/table-object.R","st_sumrow",675,0
-"2628","R/table-object.R","st_clear_reps",699,0
-"2641","R/table-object.R","st_hline",743,0
-"2649","R/table-object.R","st_hline",753,0
-"2652","R/table-object.R","st_sizes",769,0
-"2653","R/table-object.R","st_sizes",770,0
-"2654","R/table-object.R","st_sizes",771,0
-"2673","R/table-object.R","st_units",826,0
-"2692","R/table-object.R","st_select",903,0
-"2693","R/table-object.R","st_select",904,0
-"2694","R/table-object.R","st_select",905,0
-"2695","R/table-object.R","st_mutate",911,0
-"2696","R/table-object.R","st_mutate",912,0
-"2697","R/table-object.R","st_mutate",913,0
-"2701","R/table-object.R","st_edit",934,0
-"2702","R/table-object.R","st_edit",935,0
-"2703","R/table-object.R","st_edit",936,0
-"2710","R/table-object.R","tab_edit",983,0
-"2714","R/table-object.R","print.stobject",996,0
-"2715","R/table-object.R","names.stobject",1001,0
-"1051","R/table-panel.R","panel_by",104,0
-"1367","R/table-panel.R","panel_by",140,0
-"1561","R/table-panel.R","tab_panel",164,0
-"1746","R/table-panel.R","tab_panel_star",202,0
+"1211","R/table-notes.R","mini_notes",117,0
+"1590","R/table-notes.R","valid_file_notes_fun",160,0
+"800","R/table-object.R","st_new.pmtable",76,0
+"958","R/table-object.R","st_data",91,0
+"1407","R/table-object.R","st_make",139,0
+"1416","R/table-object.R","st_make",140,0
+"1897","R/table-object.R","st_notes",221,0
+"1963","R/table-object.R","st_notes",236,0
+"2044","R/table-object.R","st_notes_str",265,0
+"2575","R/table-object.R","st_notes_glo",421,0
+"2586","R/table-object.R","st_notes_glo",425,0
+"2658","R/table-object.R","st_left",480,0
+"2663","R/table-object.R","st_files",511,0
+"2667","R/table-object.R","st_files",515,0
+"2670","R/table-object.R","st_space",539,0
+"2671","R/table-object.R","st_space",540,0
+"2672","R/table-object.R","st_space",541,0
+"2673","R/table-object.R","st_space",543,0
+"2674","R/table-object.R","st_space",544,0
+"2675","R/table-object.R","st_space",546,0
+"2686","R/table-object.R","st_span",580,0
+"2724","R/table-object.R","st_sumrow",712,0
+"2727","R/table-object.R","st_sumrow",716,0
+"2728","R/table-object.R","st_sumrow",717,0
+"2736","R/table-object.R","st_clear_reps",741,0
+"2749","R/table-object.R","st_hline",785,0
+"2757","R/table-object.R","st_hline",795,0
+"2760","R/table-object.R","st_sizes",811,0
+"2761","R/table-object.R","st_sizes",812,0
+"2762","R/table-object.R","st_sizes",813,0
+"2781","R/table-object.R","st_units",868,0
+"2800","R/table-object.R","st_select",945,0
+"2801","R/table-object.R","st_select",946,0
+"2802","R/table-object.R","st_select",947,0
+"2803","R/table-object.R","st_mutate",953,0
+"2804","R/table-object.R","st_mutate",954,0
+"2805","R/table-object.R","st_mutate",955,0
+"2809","R/table-object.R","st_edit",976,0
+"2810","R/table-object.R","st_edit",977,0
+"2811","R/table-object.R","st_edit",978,0
+"2818","R/table-object.R","tab_edit",1025,0
+"2822","R/table-object.R","print.stobject",1038,0
+"2823","R/table-object.R","names.stobject",1043,0
+"1077","R/table-panel.R","panel_by",104,0
+"1412","R/table-panel.R","panel_by",140,0
+"1612","R/table-panel.R","tab_panel",164,0
+"1806","R/table-panel.R","tab_panel_star",202,0
 "176","R/table-span.R","colgroup",22,0
 "187","R/table-span.R","colgroup",23,0
 "198","R/table-span.R","colgroup",24,0
@@ -131,10 +152,10 @@
 "240","R/table-span.R","colgroup",28,0
 "248","R/table-span.R","colgroup",29,0
 "258","R/table-span.R","colgroup",30,0
-"1449","R/table-span.R","find_span_split",149,0
-"1594","R/table-span.R","find_span_split",170,0
-"1600","R/table-span.R","find_span_split",171,0
-"1605","R/table-span.R","find_span_split",172,0
+"1494","R/table-span.R","find_span_split",149,0
+"1645","R/table-span.R","find_span_split",170,0
+"1651","R/table-span.R","find_span_split",171,0
+"1656","R/table-span.R","find_span_split",172,0
 "60","R/table-stable.R","stable_argument_names",10,0
 "67","R/table-stable.R","stable_argument_names",11,0
 "80","R/table-stable.R","stable_argument_names",12,0
@@ -148,16 +169,16 @@
 "157","R/table-stable.R","stable_argument_names",20,0
 "171","R/table-stable.R","stable_argument_names",21,0
 "182","R/table-stable.R","stable_argument_names",22,0
-"2086","R/table-stable.R","stable.stable",304,0
-"2300","R/table-stable.R","as_stable.stable",361,0
-"2363","R/table-stable.R","print.stable_data",384,0
-"2365","R/table-stable.R","print.stable_data",385,0
+"2181","R/table-stable.R","stable.stable",304,0
+"2428","R/table-stable.R","as_stable.stable",361,0
+"2493","R/table-stable.R","print.stable_data",384,0
+"2496","R/table-stable.R","print.stable_data",385,0
 "316","R/table-sumrow.R","sumrow",34,0
 "652","R/table-sumrow.R","sumrow_get_hlinex2",62,0
-"713","R/table-sumrow.R","sumrow_depanel_rows",68,0
-"768","R/table-sumrow.R","sumrow_add_style",73,0
-"817","R/table-sumrow.R","sumrow_add_style",78,0
-"909","R/table-sumrow.R","sumrow_add_style",87,0
+"715","R/table-sumrow.R","sumrow_depanel_rows",68,0
+"774","R/table-sumrow.R","sumrow_add_style",73,0
+"826","R/table-sumrow.R","sumrow_add_style",78,0
+"924","R/table-sumrow.R","sumrow_add_style",87,0
 "51","R/table-tabular.R","tab_prime",9,0
 "162","R/table-tabular.R","any_skip_escape",21,0
 "174","R/table-tabular.R","any_skip_escape",22,0
@@ -165,40 +186,39 @@
 "496","R/table-tabular.R","esc_underscore",47,0
 "648","R/table-tabular.R","make_tabular",62,0
 "689","R/table-tabular.R","make_tabular",66,0
-"769","R/table-utils.R","blank_each",74,0
-"877","R/table-utils.R","italics_each",84,0
-"886","R/table-utils.R","italics_each",85,0
-"896","R/table-utils.R","italics_each",86,0
-"948","R/table-utils.R","split_bold",92,0
-"957","R/table-utils.R","split_bold",93,0
-"976","R/table-utils.R","split_bold",95,0
-"983","R/table-utils.R","split_bold",96,0
-"989","R/table-utils.R","split_bold",97,0
-"997","R/table-utils.R","split_bold",98,0
-"1052","R/table-utils.R","require_col",104,0
-"1163","R/table-utils.R","mgluet",116,0
-"1222","R/table-utils.R","squote",122,0
-"1435","R/table-utils.R","grep_col",147,0
-"1523","R/table-utils.R","df_grep_rows",159,0
-"1532","R/table-utils.R","df_grep_rows",160,0
-"1569","R/table-utils.R","df_grepl_rows",166,0
-"1574","R/table-utils.R","df_grepl_rows",167,0
-"1579","R/table-utils.R","df_grepl_rows",168,0
-"1585","R/table-utils.R","df_grepl_rows",169,0
-"1593","R/table-utils.R","df_grepl_rows",170,0
-"1599","R/table-utils.R","df_grepl_rows",171,0
-"11","R/utils.R","cvec_cs",4,0
+"775","R/table-utils.R","blank_each",74,0
+"888","R/table-utils.R","italics_each",84,0
+"898","R/table-utils.R","italics_each",85,0
+"909","R/table-utils.R","italics_each",86,0
+"966","R/table-utils.R","split_bold",92,0
+"976","R/table-utils.R","split_bold",93,0
+"997","R/table-utils.R","split_bold",95,0
+"1005","R/table-utils.R","split_bold",96,0
+"1012","R/table-utils.R","split_bold",97,0
+"1021","R/table-utils.R","split_bold",98,0
+"1079","R/table-utils.R","require_col",104,0
+"1198","R/table-utils.R","mgluet",116,0
+"1262","R/table-utils.R","squote",122,0
+"1480","R/table-utils.R","grep_col",147,0
+"1574","R/table-utils.R","df_grep_rows",159,0
+"1583","R/table-utils.R","df_grep_rows",160,0
+"1620","R/table-utils.R","df_grepl_rows",166,0
+"1625","R/table-utils.R","df_grepl_rows",167,0
+"1630","R/table-utils.R","df_grepl_rows",168,0
+"1636","R/table-utils.R","df_grepl_rows",169,0
+"1644","R/table-utils.R","df_grepl_rows",170,0
+"1650","R/table-utils.R","df_grepl_rows",171,0
 "55","R/utils.R","cvec_cs",10,0
-"1010","R/utils.R","combine_list",100,0
-"1093","R/utils.R","Update_List",108,0
-"1162","R/utils.R","is_regex",116,0
-"1219","R/utils.R","is_str_regex",122,0
-"1403","R/utils.R","repattern_df",143,0
-"1413","R/utils.R","repattern_df",144,0
-"1422","R/utils.R","repattern_df",145,0
-"1438","R/utils.R","repattern_df",147,0
-"1453","R/utils.R","repattern_df",149,0
-"1102","R/yaml-as-df.R","yamdf_validate_prototype",109,0
-"1111","R/yaml-as-df.R","yamdf_validate_prototype",110,0
-"1122","R/yaml-as-df.R","yamdf_validate_prototype",111,0
-"1133","R/yaml-as-df.R","yamdf_validate_prototype",112,0
+"1035","R/utils.R","combine_list",100,0
+"1122","R/utils.R","Update_List",108,0
+"1197","R/utils.R","is_regex",116,0
+"1258","R/utils.R","is_str_regex",122,0
+"1448","R/utils.R","repattern_df",143,0
+"1458","R/utils.R","repattern_df",144,0
+"1467","R/utils.R","repattern_df",145,0
+"1483","R/utils.R","repattern_df",147,0
+"1498","R/utils.R","repattern_df",149,0
+"1131","R/yaml-as-df.R","yamdf_validate_prototype",109,0
+"1141","R/yaml-as-df.R","yamdf_validate_prototype",110,0
+"1153","R/yaml-as-df.R","yamdf_validate_prototype",111,0
+"1165","R/yaml-as-df.R","yamdf_validate_prototype",112,0
diff --git a/inst/glo/glossary-bad.yml b/inst/glo/glossary-bad.yml
new file mode 100644
index 00000000..75f56804
--- /dev/null
+++ b/inst/glo/glossary-bad.yml
@@ -0,0 +1,22 @@
+egfr:
+  def: estimated glomerular filtration rate
+  abb: eGFR
+bmi:
+  def: body mass index
+  abb: BMI
+wt:
+  def: weight
+  abb: WT
+ht:
+  abb: HT
+  def: [height, weight, length]
+cmax:
+  def: maximum concentration in the dosing interval
+  abb: Cmax
+cmin:
+  def: minimum concentration in the dosing interval
+  abb: Cmin
+auc:
+  abb: AUC
+  def: area under the concentration time curve
+
diff --git a/inst/glo/glossary-tex b/inst/glo/glossary-tex
new file mode 100644
index 00000000..96593a59
--- /dev/null
+++ b/inst/glo/glossary-tex
@@ -0,0 +1,184 @@
+%%%%%%%%% A
+\newacronym{ADA}{ADA}{anti-drug antibodies}
+\newacronym{AE}{AE}{adverse event}
+\newacronym{AIC}{AIC}{Akaike information criterion}
+\newacronym{ALAG}{ALAG}{oral absorption lag time}
+\newacronym{ASCII}{ASCII}{American Standard Code for Information Interchange}
+\newacronym{AST}{AST}{aspartate transaminase}
+\newacronym[sort=AUC]{AUC}{\ensuremath{\mathit{AUC}}}{area under the concentration-time curve}
+\newacronym[sort=AUCss]{AUCss}{\ensuremath{\mathit{AUC_{\mathrm{ss}}}}}{area under the concentration-time curve for a dosing interval at steady state}
+\newacronym[sort=AUCC]{AUCC}{\ensuremath{AUC_{\mathrm{cumulative}}}}{cumulative area under the concentration-time curve since first dose}
+\newacronym[sort=AUC50]{AUCC50}{\ensuremath{AUC50}}{area under the concentration-time curve at 50\% of the maximum effect}
+
+%%%%%%%%% B
+\newacronym{BIC}{BIC}{Bayesian information criterion}
+\newacronym{BID}{BID}{twice daily}
+\newacronym{BL}{BL}{baseline}
+\newacronym{BLQ}{BLQ}{below limit of quantification}
+\newacronym{BMI}{BMI}{body mass index}
+\newacronym{BSA}{BSA}{body surface area}
+\newacronym{BTR}{BTR}{best tumor response}
+
+%%%%%%%%% C
+\newacronym{CATD}{CATD}{computer assisted clinical trial design}
+\newacronym[sort=Cavg]{Cavg}{\ensuremath{C_{\mathrm{avg}}}}{average concentration during the dosing interval}
+\newacronym[sort=Cavgc]{Cavgc}{\ensuremath{C_{\mathrm{avg,\sim cumulative}}}}{average concentration since first dose calculated as $AUC_{\mathrm{cumulative}}$/TAFD}
+\newacronym[sort=Cavgss]{Cavgss}{\ensuremath{C_{\mathit{avg,ss}}}}{average concentration during the dosing interval at steady state}
+\newacronym[plural=CIs, firstplural=confidence intervals (CIs)]{CI}{CI}{confidence interval}
+\newacronym{CKD}{CKD}{chronic kidney disease}
+\newacronym[sort=CLi]{CLi}{\ensuremath{\mathit{CL_i}}}{individual-specific systemic clearance}
+\newacronym[sort=CLF]{CLF}{\ensuremath{\mathit{CL/F}}}{apparent clearance after oral dosing}
+\newacronym[sort=Cmax]{Cmax}{\ensuremath{C_{\mathrm{max}}}}{maximum concentration in the dosing interval}
+\newacronym[sort=Cmaxss]{Cmaxss}{\ensuremath{C_{\mathrm{max,ss}}}}{maximum concentration in the dosing interval at steady state}
+\newacronym[sort=Cmin]{Cmin}{\ensuremath{C_{\mathrm{min}}}}{minimum concentration in the dosing interval}
+\newacronym[sort=Cminss]{Cminss}{\ensuremath{C_{\mathrm{min,ss}}}}{minimum concentration in the dosing interval at steady state}
+\newacronym{CRCL}{CRCL}{Cockcroft-Gault calculated creatinine clearance based on total body weight}
+\newacronym{CSV}{CSV}{comma separated values}
+\newacronym{CTCAE}{CTCAE}{Common Terminology Criteria for Adverse Events}
+\newacronym{CUI}{CUI}{clinical utility index}
+\newacronym{CVP}{CV\%}{percent coefficient of variation}
+\newacronym{CWRES}{CWRES}{conditional weighted residual}
+\newacronym{CWRESI}{CWRESI}{conditional weighted residual with interaction}
+
+%%%%%%%%% D
+\newacronym{D1}{D1}{zero order absorption duration}
+\newacronym{df}{df}{degrees of freedom}
+
+%%%%%%%%% E
+\newacronym[plural=EBEs, firstplural=empirical Bayes estimates (EBEs)]{EBE}{EBE}{empirical Bayes estimates}
+\newacronym{ECOG}{ECOG}{Eastern Cooperative Oncology Group}
+\newacronym{eGFR}{eGFR}{estimated glomerular filtration rate}
+\newacronym{EMA}{EMA}{European Medicines Agency}
+\newacronym{Emax}{Emax}{maximum effect}
+\newacronym{EM}{EM}{expectation maximization}
+\newacronym{ER}{ER}{exposure-response}
+\newacronym{ES}{ES}{exposure-safety}
+\newacronym{ETA}{ETA}{interindividual random effect}
+\newacronym{ETHN}{ETHN}{ethnicity}
+\newacronym{EVID}{EVID}{event ID}
+\newacronym{EWRES}{EWRES}{expected weighted residual}
+
+%%%%%%%%% F
+\newacronym[sort=f]{F}{F}{absolute bioavailability}
+\newacronym{FDA}{FDA}{United States Food and Drug Administration}
+\newacronym{FO}{FO}{first-order}
+\newacronym{FOCE}{FOCE}{first-order conditional estimation}
+\newacronym{FOCEI}{FOCEI}{first-order conditional estimation with $\eta$--$\epsilon$\ interaction}
+\newacronym{FPG}{FPG}{fasting plasma glucose}
+
+%%%%%%%%% G
+\newacronym{gam}{GAM}{generalized additive model}
+\newacronym{gh}{HbA1c}{glycosylated hemoglobin}
+\newacronym{glm}{GLM}{generalized linear model}
+\newacronym{GOF}{GOF}{goodness of fit}
+
+%%%%%%%%% H
+\newacronym{hr}{hr}{hours}
+
+%%%%%%%%% I
+\newacronym{IBW}{IBW}{ideal body weight}
+\newacronym{IGF-1}{IGF-1}{insulin-like growth factor 1}
+\newacronym{IIV}{IIV}{interindividual variability}
+\newacronym{IM}{IM}{intramuscular}
+\newacronym{Imax}{Imax}{maximum inhibition}
+\newacronym{IMP}{IMP}{Monte Carlo importance sampling}
+\newacronym{IOV}{IOV}{interoccasion variability}
+\newacronym{ITS}{ITS}{iterative two stage}
+\newacronym{IV}{IV}{intravenous}
+
+%%%%%%%%% J
+
+%%%%%%%%% K
+\newacronym[sort=ka]{ka}{\ensuremath{k_a}}{absorption rate constant}
+\newacronym{kg}{kg}{kilograms}
+
+%%%%%%%%% L
+\newacronym{L}{L}{liters}
+\newacronym{LASSO}{LASSO}{least absolute shrinkage and selection operator}
+\newacronym{LL}{LL}{log likelihood}
+\newacronym{LLQ}{LLQ}{lower limit of quantification}
+\newacronym{LRT}{LRT}{likelihood ratio test}
+
+%%%%%%%%% M
+\newacronym{MAP}{MAP}{maximum \textit{a posteriori}}
+\newacronym{mcg}{mcg}{micrograms}
+\newacronym{MCMC}{MCMC}{Markov chain Monte Carlo}
+\newacronym{MDRD}{MDRD}{modification of diet in renal disease}
+\newacronym{mg}{mg}{milligrams}
+\newacronym{mL}{mL}{milliliters}
+\newacronym{MS}{M\&S}{modeling and simulation}
+\newacronym{MSP}{MSP}{modeling and simulation plan}
+
+%%%%%%%%% N
+\newacronym{NCA}{NCA}{noncompartmental analysis}
+\newacronym{NCI}{NCI}{National Cancer Institute}
+\newacronym{NCI-ODWG}{NCI-ODWG}{National Cancer Institute organ dysfunction working group}
+\newacronym{Neff}{Neff}{effective sample size}
+\newacronym{ng}{ng}{nanograms}
+\newacronym[sort=N]{etai}{\ensuremath{\eta i}}{individual random effects}
+\newacronym{NPDE}{NPDE}{normalized prediction distribution error}
+
+
+%%%%%%%%% O
+\newacronym{ODWG}{ODWG}{organ dysfunction working group}
+\newacronym{OFV}{OFV}{objective function value}
+
+%%%%%%%%% P
+\newacronym{PD}{PD}{pharmacodynamic}
+\newacronym{PK}{PK}{pharmacokinetic}
+\newacronym{pg}{pg}{picograms}
+\newacronym{PO}{PO}{orally}
+\newacronym[plural=PPCs, firstplural=posterior predictive checks (PPCs)]{PPC}{PPC}{posterior predictive check}
+
+
+%%%%%%%%% Q
+\newacronym{QD}{QD}{once daily}
+\newacronym[sort=QF]{QF}{\ensuremath{\mathit{Q/F}}}{apparent (oral) intercompartmental clearance}
+\newacronym{QQ}{QQ}{quantile-quantile}
+
+%%%%%%%%% R
+\newacronym{RES}{RES}{residuals}
+\newacronym{Rhat}{R-hat}{Gelman-Rubin diagnostics}
+\newacronym{ROPE}{ROPE}{region of practical equivalence}
+
+%%%%%%%%% S
+\newacronym{SAEM}{SAEM}{stochastic approximation expectation maximization}
+\newacronym{SAS}{SAS XPORT}{Statistical Analysis System Transport File Format}
+\newacronym{SC}{SC}{subcutaneous}
+\newacronym{SCR}{SCR}{serum creatinine}
+\newacronym{SD}{SD}{standard deviation}
+\newacronym{SE}{SE}{standard error}
+\newacronym{SDTM}{SDTM}{study data tabulation model}
+\newacronym{ss}{ss}{steady state}
+\newacronym{SXPORT}{SAS XPORT}{Statistical Analysis System Transport File Format}
+
+
+%%%%%%%%% T
+\newacronym{TAD}{TAD}{time after (most recent) dose}
+\newacronym{TAFD}{TAFD}{time after first dose}
+\newacronym[sort=TVP]{TVP}{\ensuremath{\mathit{TVP}}}{typical value of a model parameter  $P$}
+\newacronym{T2DM}{T2DM}{type 2 diabetes mellitus}
+\newacronym[sort=t]{hl}{\ensuremath{t_{1/2}}}{elimination half-life}
+\newacronym{TMDD}{TMDD}{target-mediated drug disposition}
+
+
+%%%%%%%%% U
+\newacronym{UKPDS}{UKPDS}{United Kingdom prospective diabetes study}
+
+%%%%%%%%% V
+\newacronym[sort=VF]{VF}{\ensuremath{V/F}}{apparent volume of distribution after oral dosing}
+\newacronym[sort=V2F]{V2F}{\ensuremath{V_2/F}}{apparent central volume of distribution after oral dosing}
+\newacronym[sort=V3F]{V3F}{\ensuremath{\mathit{V_3/F}}}{apparent peripheral volume of distribution after oral dosing}
+\newacronym{VPC}{VPC}{visual predictive check}
+
+%%%%%%%%% W
+\newacronym{WRES}{WRES}{weighted residuals}
+\newacronym{WT}{WT}{subject weight}
+
+%%%%%%%%% X
+\newacronym[sort=X]{chi2}{\ensuremath{\chi^2}}{chi-squared distribution}
+
+
+%%%%%%%%% Y
+
+%%%%%%%%% Z
diff --git a/inst/glo/glossary-yml b/inst/glo/glossary-yml
new file mode 100644
index 00000000..370b271b
--- /dev/null
+++ b/inst/glo/glossary-yml
@@ -0,0 +1,22 @@
+egfr:
+  def: estimated glomerular filtration rate
+  abb: eGFR
+bmi:
+  def: body mass index
+  abb: BMI
+wt:
+  def: weight
+  abb: WT
+ht:
+  abb: HT
+  def: height
+cmax:
+  def: maximum concentration in the dosing interval
+  abb: Cmax
+cmin:
+  def: minimum concentration in the dosing interval
+  abb: Cmin
+auc:
+  abb: AUC
+  def: area under the concentration time curve
+
diff --git a/inst/glo/glossary.tex b/inst/glo/glossary.tex
new file mode 100644
index 00000000..96593a59
--- /dev/null
+++ b/inst/glo/glossary.tex
@@ -0,0 +1,184 @@
+%%%%%%%%% A
+\newacronym{ADA}{ADA}{anti-drug antibodies}
+\newacronym{AE}{AE}{adverse event}
+\newacronym{AIC}{AIC}{Akaike information criterion}
+\newacronym{ALAG}{ALAG}{oral absorption lag time}
+\newacronym{ASCII}{ASCII}{American Standard Code for Information Interchange}
+\newacronym{AST}{AST}{aspartate transaminase}
+\newacronym[sort=AUC]{AUC}{\ensuremath{\mathit{AUC}}}{area under the concentration-time curve}
+\newacronym[sort=AUCss]{AUCss}{\ensuremath{\mathit{AUC_{\mathrm{ss}}}}}{area under the concentration-time curve for a dosing interval at steady state}
+\newacronym[sort=AUCC]{AUCC}{\ensuremath{AUC_{\mathrm{cumulative}}}}{cumulative area under the concentration-time curve since first dose}
+\newacronym[sort=AUC50]{AUCC50}{\ensuremath{AUC50}}{area under the concentration-time curve at 50\% of the maximum effect}
+
+%%%%%%%%% B
+\newacronym{BIC}{BIC}{Bayesian information criterion}
+\newacronym{BID}{BID}{twice daily}
+\newacronym{BL}{BL}{baseline}
+\newacronym{BLQ}{BLQ}{below limit of quantification}
+\newacronym{BMI}{BMI}{body mass index}
+\newacronym{BSA}{BSA}{body surface area}
+\newacronym{BTR}{BTR}{best tumor response}
+
+%%%%%%%%% C
+\newacronym{CATD}{CATD}{computer assisted clinical trial design}
+\newacronym[sort=Cavg]{Cavg}{\ensuremath{C_{\mathrm{avg}}}}{average concentration during the dosing interval}
+\newacronym[sort=Cavgc]{Cavgc}{\ensuremath{C_{\mathrm{avg,\sim cumulative}}}}{average concentration since first dose calculated as $AUC_{\mathrm{cumulative}}$/TAFD}
+\newacronym[sort=Cavgss]{Cavgss}{\ensuremath{C_{\mathit{avg,ss}}}}{average concentration during the dosing interval at steady state}
+\newacronym[plural=CIs, firstplural=confidence intervals (CIs)]{CI}{CI}{confidence interval}
+\newacronym{CKD}{CKD}{chronic kidney disease}
+\newacronym[sort=CLi]{CLi}{\ensuremath{\mathit{CL_i}}}{individual-specific systemic clearance}
+\newacronym[sort=CLF]{CLF}{\ensuremath{\mathit{CL/F}}}{apparent clearance after oral dosing}
+\newacronym[sort=Cmax]{Cmax}{\ensuremath{C_{\mathrm{max}}}}{maximum concentration in the dosing interval}
+\newacronym[sort=Cmaxss]{Cmaxss}{\ensuremath{C_{\mathrm{max,ss}}}}{maximum concentration in the dosing interval at steady state}
+\newacronym[sort=Cmin]{Cmin}{\ensuremath{C_{\mathrm{min}}}}{minimum concentration in the dosing interval}
+\newacronym[sort=Cminss]{Cminss}{\ensuremath{C_{\mathrm{min,ss}}}}{minimum concentration in the dosing interval at steady state}
+\newacronym{CRCL}{CRCL}{Cockcroft-Gault calculated creatinine clearance based on total body weight}
+\newacronym{CSV}{CSV}{comma separated values}
+\newacronym{CTCAE}{CTCAE}{Common Terminology Criteria for Adverse Events}
+\newacronym{CUI}{CUI}{clinical utility index}
+\newacronym{CVP}{CV\%}{percent coefficient of variation}
+\newacronym{CWRES}{CWRES}{conditional weighted residual}
+\newacronym{CWRESI}{CWRESI}{conditional weighted residual with interaction}
+
+%%%%%%%%% D
+\newacronym{D1}{D1}{zero order absorption duration}
+\newacronym{df}{df}{degrees of freedom}
+
+%%%%%%%%% E
+\newacronym[plural=EBEs, firstplural=empirical Bayes estimates (EBEs)]{EBE}{EBE}{empirical Bayes estimates}
+\newacronym{ECOG}{ECOG}{Eastern Cooperative Oncology Group}
+\newacronym{eGFR}{eGFR}{estimated glomerular filtration rate}
+\newacronym{EMA}{EMA}{European Medicines Agency}
+\newacronym{Emax}{Emax}{maximum effect}
+\newacronym{EM}{EM}{expectation maximization}
+\newacronym{ER}{ER}{exposure-response}
+\newacronym{ES}{ES}{exposure-safety}
+\newacronym{ETA}{ETA}{interindividual random effect}
+\newacronym{ETHN}{ETHN}{ethnicity}
+\newacronym{EVID}{EVID}{event ID}
+\newacronym{EWRES}{EWRES}{expected weighted residual}
+
+%%%%%%%%% F
+\newacronym[sort=f]{F}{F}{absolute bioavailability}
+\newacronym{FDA}{FDA}{United States Food and Drug Administration}
+\newacronym{FO}{FO}{first-order}
+\newacronym{FOCE}{FOCE}{first-order conditional estimation}
+\newacronym{FOCEI}{FOCEI}{first-order conditional estimation with $\eta$--$\epsilon$\ interaction}
+\newacronym{FPG}{FPG}{fasting plasma glucose}
+
+%%%%%%%%% G
+\newacronym{gam}{GAM}{generalized additive model}
+\newacronym{gh}{HbA1c}{glycosylated hemoglobin}
+\newacronym{glm}{GLM}{generalized linear model}
+\newacronym{GOF}{GOF}{goodness of fit}
+
+%%%%%%%%% H
+\newacronym{hr}{hr}{hours}
+
+%%%%%%%%% I
+\newacronym{IBW}{IBW}{ideal body weight}
+\newacronym{IGF-1}{IGF-1}{insulin-like growth factor 1}
+\newacronym{IIV}{IIV}{interindividual variability}
+\newacronym{IM}{IM}{intramuscular}
+\newacronym{Imax}{Imax}{maximum inhibition}
+\newacronym{IMP}{IMP}{Monte Carlo importance sampling}
+\newacronym{IOV}{IOV}{interoccasion variability}
+\newacronym{ITS}{ITS}{iterative two stage}
+\newacronym{IV}{IV}{intravenous}
+
+%%%%%%%%% J
+
+%%%%%%%%% K
+\newacronym[sort=ka]{ka}{\ensuremath{k_a}}{absorption rate constant}
+\newacronym{kg}{kg}{kilograms}
+
+%%%%%%%%% L
+\newacronym{L}{L}{liters}
+\newacronym{LASSO}{LASSO}{least absolute shrinkage and selection operator}
+\newacronym{LL}{LL}{log likelihood}
+\newacronym{LLQ}{LLQ}{lower limit of quantification}
+\newacronym{LRT}{LRT}{likelihood ratio test}
+
+%%%%%%%%% M
+\newacronym{MAP}{MAP}{maximum \textit{a posteriori}}
+\newacronym{mcg}{mcg}{micrograms}
+\newacronym{MCMC}{MCMC}{Markov chain Monte Carlo}
+\newacronym{MDRD}{MDRD}{modification of diet in renal disease}
+\newacronym{mg}{mg}{milligrams}
+\newacronym{mL}{mL}{milliliters}
+\newacronym{MS}{M\&S}{modeling and simulation}
+\newacronym{MSP}{MSP}{modeling and simulation plan}
+
+%%%%%%%%% N
+\newacronym{NCA}{NCA}{noncompartmental analysis}
+\newacronym{NCI}{NCI}{National Cancer Institute}
+\newacronym{NCI-ODWG}{NCI-ODWG}{National Cancer Institute organ dysfunction working group}
+\newacronym{Neff}{Neff}{effective sample size}
+\newacronym{ng}{ng}{nanograms}
+\newacronym[sort=N]{etai}{\ensuremath{\eta i}}{individual random effects}
+\newacronym{NPDE}{NPDE}{normalized prediction distribution error}
+
+
+%%%%%%%%% O
+\newacronym{ODWG}{ODWG}{organ dysfunction working group}
+\newacronym{OFV}{OFV}{objective function value}
+
+%%%%%%%%% P
+\newacronym{PD}{PD}{pharmacodynamic}
+\newacronym{PK}{PK}{pharmacokinetic}
+\newacronym{pg}{pg}{picograms}
+\newacronym{PO}{PO}{orally}
+\newacronym[plural=PPCs, firstplural=posterior predictive checks (PPCs)]{PPC}{PPC}{posterior predictive check}
+
+
+%%%%%%%%% Q
+\newacronym{QD}{QD}{once daily}
+\newacronym[sort=QF]{QF}{\ensuremath{\mathit{Q/F}}}{apparent (oral) intercompartmental clearance}
+\newacronym{QQ}{QQ}{quantile-quantile}
+
+%%%%%%%%% R
+\newacronym{RES}{RES}{residuals}
+\newacronym{Rhat}{R-hat}{Gelman-Rubin diagnostics}
+\newacronym{ROPE}{ROPE}{region of practical equivalence}
+
+%%%%%%%%% S
+\newacronym{SAEM}{SAEM}{stochastic approximation expectation maximization}
+\newacronym{SAS}{SAS XPORT}{Statistical Analysis System Transport File Format}
+\newacronym{SC}{SC}{subcutaneous}
+\newacronym{SCR}{SCR}{serum creatinine}
+\newacronym{SD}{SD}{standard deviation}
+\newacronym{SE}{SE}{standard error}
+\newacronym{SDTM}{SDTM}{study data tabulation model}
+\newacronym{ss}{ss}{steady state}
+\newacronym{SXPORT}{SAS XPORT}{Statistical Analysis System Transport File Format}
+
+
+%%%%%%%%% T
+\newacronym{TAD}{TAD}{time after (most recent) dose}
+\newacronym{TAFD}{TAFD}{time after first dose}
+\newacronym[sort=TVP]{TVP}{\ensuremath{\mathit{TVP}}}{typical value of a model parameter  $P$}
+\newacronym{T2DM}{T2DM}{type 2 diabetes mellitus}
+\newacronym[sort=t]{hl}{\ensuremath{t_{1/2}}}{elimination half-life}
+\newacronym{TMDD}{TMDD}{target-mediated drug disposition}
+
+
+%%%%%%%%% U
+\newacronym{UKPDS}{UKPDS}{United Kingdom prospective diabetes study}
+
+%%%%%%%%% V
+\newacronym[sort=VF]{VF}{\ensuremath{V/F}}{apparent volume of distribution after oral dosing}
+\newacronym[sort=V2F]{V2F}{\ensuremath{V_2/F}}{apparent central volume of distribution after oral dosing}
+\newacronym[sort=V3F]{V3F}{\ensuremath{\mathit{V_3/F}}}{apparent peripheral volume of distribution after oral dosing}
+\newacronym{VPC}{VPC}{visual predictive check}
+
+%%%%%%%%% W
+\newacronym{WRES}{WRES}{weighted residuals}
+\newacronym{WT}{WT}{subject weight}
+
+%%%%%%%%% X
+\newacronym[sort=X]{chi2}{\ensuremath{\chi^2}}{chi-squared distribution}
+
+
+%%%%%%%%% Y
+
+%%%%%%%%% Z
diff --git a/inst/glo/glossary.yaml b/inst/glo/glossary.yaml
new file mode 100644
index 00000000..8ee94c8d
--- /dev/null
+++ b/inst/glo/glossary.yaml
@@ -0,0 +1,21 @@
+egfr:
+  def: estimated glomerular filtration rate
+  abb: eGFR
+bmi:
+  def: body mass index
+  abb: BMI
+wt:
+  def: weight
+  abb: WT
+ht:
+  abb: HT
+  def: height
+cmax:
+  def: maximum concentration in the dosing interval
+  abb: Cmax
+cmin:
+  def: minimum concentration in the dosing interval
+  abb: Cmin
+auc:
+  abb: AUC
+  def: area under the concentration time curve
diff --git a/inst/glo/glossary.yml b/inst/glo/glossary.yml
new file mode 100644
index 00000000..370b271b
--- /dev/null
+++ b/inst/glo/glossary.yml
@@ -0,0 +1,22 @@
+egfr:
+  def: estimated glomerular filtration rate
+  abb: eGFR
+bmi:
+  def: body mass index
+  abb: BMI
+wt:
+  def: weight
+  abb: WT
+ht:
+  abb: HT
+  def: height
+cmax:
+  def: maximum concentration in the dosing interval
+  abb: Cmax
+cmin:
+  def: minimum concentration in the dosing interval
+  abb: Cmin
+auc:
+  abb: AUC
+  def: area under the concentration time curve
+
diff --git a/man/as_glossary.Rd b/man/as_glossary.Rd
new file mode 100644
index 00000000..874854af
--- /dev/null
+++ b/man/as_glossary.Rd
@@ -0,0 +1,42 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/glossary.R
+\name{as_glossary}
+\alias{as_glossary}
+\title{Create a new glossary object}
+\usage{
+as_glossary(...)
+}
+\arguments{
+\item{...}{unquoted \verb{<label> = <definition>} pairs, or a named list
+of abbreviations where the names are the labels; see \strong{Examples}.}
+}
+\value{
+A new glossary object.
+}
+\description{
+Rather than reading from a file, glossary objects can be created inline.
+}
+\details{
+For all entries in the new object, the abbreviation is set to the label.
+See \code{\link[=update_abbrev]{update_abbrev()}} to customize the abbreviation.
+
+Entries that have duplicate labels will be dropped with a warning.
+}
+\examples{
+
+as_glossary(wt = "weight", ht = "height", bmi = "body mass index")
+
+as_glossary(wt = "weight", ht = "height", wt = "baseline weight")
+
+l <- list(VPC = "visual predictive check", tz = "timezone")
+
+as_glossary(l)
+
+as_glossary(l, wt = "weight")
+
+}
+\seealso{
+\code{\link[=read_glossary]{read_glossary()}}, \code{\link[=update_abbrev]{update_abbrev()}}
+
+\code{\link[=update_abbrev]{update_abbrev()}}
+}
diff --git a/man/glossary_notes.Rd b/man/glossary_notes.Rd
new file mode 100644
index 00000000..af7d1ea8
--- /dev/null
+++ b/man/glossary_notes.Rd
@@ -0,0 +1,56 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/glossary.R
+\name{glossary_notes}
+\alias{glossary_notes}
+\alias{glossary_notes.character}
+\alias{glossary_notes.list}
+\alias{glossary_notes.glossary}
+\title{Return formatted notes from a tex glossary file or glossary object}
+\usage{
+glossary_notes(x, ...)
+
+\method{glossary_notes}{character}(x, ..., format = guess_glo_fmt(x))
+
+\method{glossary_notes}{list}(x, ...)
+
+\method{glossary_notes}{glossary}(x, ..., sep = ": ", collapse = "; ")
+}
+\arguments{
+\item{x}{path to a tex glossary file, a glossary object, or a list that can
+be coerced to a glossary object with \code{\link[=as_glossary]{as_glossary()}}.}
+
+\item{...}{unquoted glossary labels to be included in the notes text.}
+
+\item{format}{passed to \code{\link[=read_glossary]{read_glossary()}}.}
+
+\item{sep}{character to separate name and value.}
+
+\item{collapse}{a character used to collapse definitions into a
+single string.}
+}
+\description{
+Return formatted notes from a tex glossary file or glossary object
+}
+\examples{
+file <- system.file("glo", "glossary.tex", package = "pmtables")
+
+glossary_notes(file, WT, CRCL)
+
+g <- as_glossary(ss = "steady state", ALB = "albumin", WT = "weight")
+
+glossary_notes(g, ALB, ss)
+
+what <- c("WT", "NCA", "NPDE")
+
+g <- read_glossary(file)
+
+glossary_notes(g, tidyselect::all_of(what))
+
+l <- list(ss = "steady state", ALB = "albumin", WT = "weight")
+
+glossary_notes(l, ALB, ss)
+
+}
+\seealso{
+\code{\link[=st_notes_glo]{st_notes_glo()}}, \code{\link[=read_glossary]{read_glossary()}}
+}
diff --git a/man/read_glossary.Rd b/man/read_glossary.Rd
new file mode 100644
index 00000000..04223b5f
--- /dev/null
+++ b/man/read_glossary.Rd
@@ -0,0 +1,70 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/glossary.R
+\name{read_glossary}
+\alias{read_glossary}
+\title{Read and parse a glossary file}
+\usage{
+read_glossary(file, format = guess_glo_fmt(file))
+}
+\arguments{
+\item{file}{path to the tex or yaml glossary file.}
+
+\item{format}{the glossary file format; could be either \code{"tex"} or \code{"yaml"}
+and will be inferred by default from the extension of \code{file}.}
+}
+\value{
+A named list of glossary definitions with class \code{tex_glossary} and
+\code{glossary}. The list names are acronym entry labels (i.e., what you would
+pass to \verb{\\gls\{\}} when writing a tex document).
+}
+\description{
+Files may be formatted as TeX glossary file or
+in yaml format suitable for reading using
+\code{\link[=yaml_as_df]{yaml_as_df()}} (see details).
+}
+\details{
+For the tex format, the glossary file is expected to contain acronym
+entries with the form
+
+\if{html}{\out{<div class="sourceCode">}}\preformatted{\\newacronym\{label\}\{abbreviation\}\{definition\}
+}\if{html}{\out{</div>}}
+
+or
+
+\if{html}{\out{<div class="sourceCode">}}\preformatted{\\newacronym[options]\{label\}\{abbreviation\}\{definition\}
+}\if{html}{\out{</div>}}
+
+For the yaml format, the glossary file is expected to be able to be
+read with \code{\link[=yaml_as_df]{yaml_as_df()}}; the outer level should be the \code{label} and
+columns should be provided with the names \code{def} (definition) and
+\code{abb} (abbreviation). See \strong{Examples}.
+}
+\examples{
+texfile <- system.file("glo", "glossary.tex", package = "pmtables")
+
+x <- read_glossary(texfile)
+
+head(x)
+
+x$WT
+
+x$SC
+
+yamfile <- system.file("glo", "glossary.yaml", package = "pmtables")
+
+y <- read_glossary(yamfile)
+head(y)
+
+# Format of the tex glossary file
+head(readLines(texfile))
+
+# Format of the yaml glossary file
+head(readLines(yamfile))
+
+yaml_as_df(yamfile)
+
+
+}
+\seealso{
+\code{\link[=as_glossary]{as_glossary()}}
+}
diff --git a/man/select_glossary.Rd b/man/select_glossary.Rd
new file mode 100644
index 00000000..acd1924c
--- /dev/null
+++ b/man/select_glossary.Rd
@@ -0,0 +1,25 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/glossary.R
+\name{select_glossary}
+\alias{select_glossary}
+\title{Select entries from a glossary object}
+\usage{
+select_glossary(x, ...)
+}
+\arguments{
+\item{x}{a glossary object.}
+
+\item{...}{tidy-select syntax naming glossary entry labels to select.}
+}
+\value{
+A new glossary object with selected entries.
+}
+\description{
+Select entries from a glossary object
+}
+\examples{
+gl <- as_glossary(list(a = "apple", b = "banana", c = "cat", d = "dog"))
+
+select_glossary(gl, b, d)
+
+}
diff --git a/man/st_notes_glo.Rd b/man/st_notes_glo.Rd
new file mode 100644
index 00000000..5fe46fc7
--- /dev/null
+++ b/man/st_notes_glo.Rd
@@ -0,0 +1,53 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/table-object.R
+\name{st_notes_glo}
+\alias{st_notes_glo}
+\title{Add table notes based on acronyms from a tex glossary file}
+\usage{
+st_notes_glo(
+  x,
+  glossary,
+  ...,
+  sep = ": ",
+  collapse = "; ",
+  labels = NULL,
+  width = NULL
+)
+}
+\arguments{
+\item{x}{an stobject.}
+
+\item{glossary}{a glossary object generated from \code{\link[=read_glossary]{read_glossary()}} or
+\code{\link[=as_glossary]{as_glossary()}}.}
+
+\item{...}{unquoted names matching those names in \code{glossary}.}
+
+\item{sep}{character to separate name and value.}
+
+\item{collapse}{a character used to collapse definitions into a
+single string.}
+
+\item{labels}{a character vector or comma-separates string of definition
+labels to get appended to the end of names passed in \code{...}.}
+
+\item{width}{if numeric, \code{\link[=st_notes_detach]{st_notes_detach()}} will be called with \code{width}
+argument.}
+}
+\description{
+Add table notes based on acronyms from a tex glossary file
+}
+\examples{
+library(dplyr)
+
+file <- system.file("glo", "glossary.tex", package = "pmtables")
+
+x <- read_glossary(file)
+
+st_new(stdata()) \%>\%
+  st_notes_glo(x, WT, CRCL, SCR, width = 1) \%>\%
+  stable()
+
+}
+\seealso{
+\code{\link[=glossary_notes]{glossary_notes()}}, \code{\link[=read_glossary]{read_glossary()}}
+}
diff --git a/man/update_abbrev.Rd b/man/update_abbrev.Rd
new file mode 100644
index 00000000..8387700c
--- /dev/null
+++ b/man/update_abbrev.Rd
@@ -0,0 +1,33 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/glossary.R
+\name{update_abbrev}
+\alias{update_abbrev}
+\title{Update the abbreviation for a glossary entry}
+\usage{
+update_abbrev(x, ...)
+}
+\arguments{
+\item{x}{a glossary object.}
+
+\item{...}{\verb{<label> = <new abbreviation>} pairs; if just the
+\verb{<label>} is passed, it will be used as the new update
+abbreviation value.}
+}
+\description{
+Update the abbreviation for a glossary entry
+}
+\examples{
+x <- as_glossary(list(ka = "absorption rate constant"))
+
+x <- update_abbrev(x, ka = "\\\\ensuremath{k_a}")
+
+x$ka
+
+x <- update_abbrev(x, ka)
+
+x$ka
+
+}
+\seealso{
+\code{\link[=as_glossary]{as_glossary()}}
+}
diff --git a/tests/testthat/test-glossary.R b/tests/testthat/test-glossary.R
new file mode 100644
index 00000000..1fd960d1
--- /dev/null
+++ b/tests/testthat/test-glossary.R
@@ -0,0 +1,288 @@
+library(testthat)
+library(dplyr)
+
+context("test-glossary")
+
+glofile <- system.file("glo", "glossary.tex", package = "pmtables")
+gloyaml <- system.file("glo", "glossary.yaml", package = "pmtables")
+gloyml <- system.file("glo", "glossary.yml", package = "pmtables")
+
+test_that("read a glossary file", {
+  tex <- read_glossary(glofile)
+  expect_named(tex)
+  expect_is(tex, "tex_glossary")
+  expect_is(tex, "glossary")
+  expect_is(tex, "list")
+  expect_true("WT" %in% names(tex))
+  expect_true("QF" %in% names(tex))
+
+  type_list <- vapply(tex, inherits, what = "list", FUN.VALUE = TRUE)
+  expect_true(all(type_list))
+
+  foo <- tempfile(fileext = ".tex")
+  expect_error(read_glossary(foo), "does not exist.")
+
+  cat("a\n", file = foo)
+  expect_error(read_glossary(foo), "No acronym entries were found")
+})
+
+test_that("read a glossary file - yaml", {
+  yml <- read_glossary(gloyml)
+  expect_named(yml)
+  expect_is(yml, "tex_glossary")
+  expect_is(yml, "glossary")
+  expect_is(yml, "list")
+  expect_true("wt" %in% names(yml))
+  expect_true("cmin" %in% names(yml))
+
+  type_list <- vapply(yml, inherits, what = "list", FUN.VALUE = TRUE)
+  expect_true(all(type_list))
+
+  globad <- system.file("glo", "glossary-bad.yml", package = "pmtables")
+
+  expect_error(
+    suppressMessages(read_glossary(globad)),
+    "Failed to parse glossary file"
+  )
+})
+
+test_that("read a glossary file - pass format", {
+  glof <- system.file("glo", "glossary-yml", package = "pmtables")
+  expect_error(
+    read_glossary(glof),
+    "Could not guess"
+  )
+  yml <- read_glossary(glof, format = "yaml")
+  expect_is(yml, "tex_glossary")
+})
+
+test_that("load glossary notes", {
+  notes <- glossary_notes(glofile, WT, NPDE)
+  expect_is(notes, "character")
+  expect_length(notes, 1)
+  expect_true(grepl("WT: ", notes, fixed = TRUE))
+  expect_true(grepl("NPDE: ", notes, fixed = TRUE))
+
+  notes <- glossary_notes(glofile, WT, CLF, collapse = NULL)
+  expect_is(notes, "character")
+  expect_length(notes, 2)
+  expect_true(any(grepl("WT", notes)))
+
+  notes <- glossary_notes(glofile, WT, CLF, sep = "&  ")
+  expect_is(notes, "character")
+  expect_true(any(grepl("WT&  ", notes, fixed = TRUE)))
+
+  what <- c("QD", "NPDE", "WT", "CLF")
+  notes <- glossary_notes(glofile, tidyselect::all_of(what), collapse = NULL)
+  expect_is(notes, "character")
+  expect_length(notes, 4)
+  expect_true(any(grepl("WT: ", notes, fixed = TRUE)))
+  expect_true(any(grepl("CL/F", notes, fixed = TRUE)))
+  expect_true(any(grepl("QD: ", notes, fixed = TRUE)))
+  expect_true(any(grepl("NPDE: ", notes, fixed = TRUE)))
+})
+
+test_that("load glossary notes - yaml", {
+  notes <- glossary_notes(gloyaml, wt, auc)
+  expect_is(notes, "character")
+  expect_length(notes, 1)
+  expect_true(grepl("WT: ", notes, fixed = TRUE))
+  expect_true(grepl("AUC: ", notes, fixed = TRUE))
+})
+
+test_that("glossary notes - pass format", {
+  glof <- system.file("glo", "glossary-yml", package = "pmtables")
+  notes <- glossary_notes(glof, wt, auc, format = "yaml")
+  expect_is(notes, "character")
+  expect_true(grepl("AUC: ", notes, fixed = TRUE))
+})
+
+test_that("make glossary notes from glossary list", {
+  x <- read_glossary(glofile)
+  notes <- glossary_notes(x, WT, NPDE, CWRES, collapse = NULL)
+  expect_length(notes, 3)
+
+  expect_error(
+    glossary_notes(x, MetrumRG),
+    "columns that don't exist"
+  )
+})
+
+test_that("make glossary notes from a list", {
+  l <- list(HT = "height", WT = "weight", AGE = "age")
+  notes <- glossary_notes(l, collapse = NULL)
+  expect_length(notes, 3)
+  expect_equal(notes[1], "HT: height")
+  expect_equal(notes[2], "WT: weight")
+  expect_equal(notes[3], "AGE: age")
+
+  notes <- glossary_notes(l, AGE, HT, collapse = NULL)
+  expect_length(notes, 2)
+  expect_equal(notes[1], "AGE: age")
+  expect_equal(notes[2], "HT: height")
+})
+
+test_that("parse a glossary entry", {
+  txt <- "  \\newacronym{a}{b}{c} % { comment"
+  x <- pmtables:::parse_tex_glossary(txt)
+  expect_length(x, 1)
+  expect_named(x)
+  expect_identical(names(x), "a")
+  expect_equivalent(x$a, list(abbreviation = "b", definition = "c"))
+
+  txt <- "\\newacronym[options]{a}{b}{c} % } comment"
+  x <- pmtables:::parse_tex_glossary(txt)
+  expect_length(x, 1)
+  expect_named(x)
+  expect_identical(names(x), "a")
+  expect_equivalent(x$a, list(abbreviation = "b", definition = "c"))
+
+  txt <- "\\newacronym[options]{a}{b \\%}{c \\%} % } comment"
+  x <- pmtables:::parse_tex_glossary(txt)
+  expect_length(x, 1)
+  expect_named(x)
+  expect_identical(names(x), "a")
+  expect_equivalent(x$a, list(abbreviation = "b \\%", definition = "c \\%"))
+
+  txt <- "\\newacronym [ option ] { a } { b }   { c }  % {} comment"
+  x <- pmtables:::parse_tex_glossary(txt)
+  expect_length(x, 1)
+  expect_named(x)
+  expect_identical(names(x), "a")
+  expect_equivalent(x$a, list(abbreviation = "b", definition = "c"))
+
+  txt <- "\\newacronym[options]{a}{b_\\mathrm{d}}{\\mathit{c}} % comment"
+  x <- pmtables:::parse_tex_glossary(txt)
+  expect_length(x, 1)
+  expect_named(x)
+  expect_identical(names(x), "a")
+  expect_equivalent(
+    x$a, list(abbreviation = "b_\\mathrm{d}", definition = "\\mathit{c}")
+  )
+
+  txt <- "%\\newacronym{a}{b}{c}"
+  expect_error(pmtables:::parse_tex_glossary(txt), "No acronym entries")
+})
+
+test_that("coerce list to glossary object", {
+  g <- as_glossary(a = "b", c = "d")
+  expect_length(g, 2)
+  expect_is(g, "glossary")
+
+  g <- as_glossary(list(a = "b", c = "d"))
+  expect_length(g, 2)
+  expect_is(g, "glossary")
+
+  g <- as_glossary(list(a = "b", c = "d"), e = "f", g = "h")
+  expect_length(g, 4)
+  expect_is(g, "glossary")
+
+  expect_error(as_glossary(list("a", c = "d")), "must resolve to a named list")
+  expect_error(as_glossary(c(a = "b", c = "d")), "must resolve to a named list")
+
+  expect_warning(
+    as_glossary(list(a = "b", c = "d"), c = "dd"),
+    "Dropping duplicate glossary labels"
+  )
+})
+
+test_that("require glossary", {
+  expect_error(
+    pmtables:::require_glossary(letters),
+    "is not a glossary object"
+  )
+})
+
+test_that("update an abbreviation", {
+  glo <- read_glossary(glofile)
+  expect_equal(glo$WT$abbreviation, "WT")
+
+  glo2 <- update_abbrev(glo, WT = "WGT")
+  expect_equal(glo2$WT$abbreviation, "WGT")
+
+  glo3 <- update_abbrev(glo2, WT)
+  expect_equal(glo3$WT$abbreviation, "WT")
+
+  expect_error(
+    update_abbrev(glo2, FOO),
+    "Requested definitions not found"
+  )
+})
+
+test_that("combine two glossary objects", {
+  g1 <- as_glossary(list(a = "apple", b = "banana"))
+  g2 <- as_glossary(list(c = "cat", d = "dog"))
+  g3 <- as_glossary(list(e = "ear", f = "foot"))
+  g4 <- c(g1, g2, g3)
+  expect_is(g4, "glossary")
+  expect_length(g4, 6)
+  expect_identical(names(g4), letters[1:6])
+
+  g5 <- as_glossary(list(a = "anion", g = "grape"))
+  expect_error(c(g1, g5))
+
+  g5$a <- NULL
+  g6 <- c(g1, g5)
+  expect_is(g6, "glossary")
+  expect_identical(names(g6), c("a", "b", "g"))
+})
+
+test_that("coerce glossary object to list", {
+  g1 <- as_glossary(list(a = "apple", b = "banana"))
+  l <- as.list(g1)
+
+  expect_true(inherits(g1, "glossary"))
+  expect_false(inherits(l, "glossary"))
+  expect_length(l, length(g1))
+  expect_identical(names(l), names(g1))
+  expect_identical(names(l$a), c("definition", "abbreviation"))
+})
+
+test_that("coerce glossary entry to list", {
+  ge1 <- as_glossary(list(a = "apple", b = "banana"))$a
+  l <- as.list(ge1)
+  expect_true(inherits(ge1, "glossary_entry"))
+  expect_false(inherits(l, "glossary_entry"))
+  expect_length(l, 2)
+  expect_identical(names(l), c("definition", "abbreviation"))
+})
+
+test_that("coerce glossary object to data.frame", {
+  g1 <- as_glossary(list(a = "apple", b = "banana"))
+  df <- as.data.frame(g1)
+
+  expect_true(inherits(g1, "glossary"))
+  expect_false(inherits(df, "glossary"))
+  expect_equal(nrow(df), length(g1))
+  expect_identical(names(df), c("label", "definition", "abbreviation"))
+})
+
+test_that("coerce glossary object to data.frame", {
+  g1 <- as_glossary(list(a = "apple", b = "banana"))
+  df <- as.data.frame(g1)
+
+  expect_true(inherits(g1, "glossary"))
+  expect_false(inherits(df, "glossary"))
+  expect_equal(nrow(df), length(g1))
+  expect_identical(names(df), c("label", "definition", "abbreviation"))
+})
+
+test_that("extract glossary entry", {
+  g1 <- as_glossary(list(a = "apple", b = "banana"))
+  x <- g1$b
+  expect_is(x, "glossary_entry")
+  expect_identical(names(x), c("definition", "abbreviation"))
+
+  g2 <- as_glossary(list(a = "apple", b = "banana", c = "cat", d = "dog"))
+  expect_identical(g2[["d"]], g2$d)
+
+  g3 <- g2[2:3]
+  expect_identical(names(g3), c("b", "c"))
+})
+
+test_that("select glossary items", {
+  g1 <- as_glossary(list(a = "apple", b = "banana", c = "cat", d = "dog"))
+  g2 <- select_glossary(g1, b, d)
+  expect_identical(names(g2), c("b", "d"))
+  expect_error(select_glossary(g1, b, e), "columns that don't exist")
+})
diff --git a/tests/testthat/test-table-object.R b/tests/testthat/test-table-object.R
index 6423a7d0..f3c43e21 100644
--- a/tests/testthat/test-table-object.R
+++ b/tests/testthat/test-table-object.R
@@ -13,6 +13,8 @@ inspect2 <- function(x) {
   x %>% st_make(inspect=TRUE) %>% get_stable_data()
 }
 
+glofile <- system.file("glo", "glossary.tex", package = "pmtables")
+
 test_that("stobject equivalent hline [PMT-TEST-0215]", {
   mt <- mtcars[1:20,]
   x <- inspect(mt, hline_at = c(1,5,8))
@@ -360,7 +362,6 @@ test_that("call st_units() on pmtable", {
   )
 })
 
-
 test_that("remove notes from a st object", {
   x <- pt_data_inventory(pmt_obs)
   expect_true(is.character(x$notes))
@@ -432,6 +433,36 @@ test_that("substitute lines in table notes", {
   )
 })
 
+test_that("get notes from glossary file with st_notes_glo", {
+  glossary <- read_glossary(glofile)
+  data <- stdata()
+
+  x <- st_new(data)
+  y <- st_notes_glo(x, glossary, WT, CLF, V2F)$notes
+  expect_length(y, 1)
+  expect_match(y, "subject weight", fixed = TRUE)
+  expect_match(y, "CL/F", fixed = TRUE)
+
+  x <- st_new(data)
+  y <- st_notes_glo(x, glossary, WT, CLF, collapse = NULL)$notes
+  expect_length(y, 2)
+
+  x <- st_new(data)
+  y <- st_notes_glo(x, glossary, WT, QD, sep = "@  ")$notes
+  expect_length(y, 1)
+  expect_match(y, "QD@  ")
+
+  x <- st_new(data)
+  y <- st_notes_glo(x, glossary, WT, CLF, labels = "SCR,V2F", collapse = NULL)$notes
+  expect_length(y, 4)
+  expect_match(y[[3]], "SCR: ")
+
+  x <- st_new(data)
+  y <- st_notes_glo(x, glossary, WT, CLF, width = 1)$note_config
+  expect_identical(y$type, "minipage")
+  expect_identical(y$width, 1)
+})
+
 test_that("st_filter filters data in pmtable object [PMT-STFUN-0001]", {
   data <- stdata()
   x <- st_new(data)