Extracts JECFA abbreviation — extract_jecfa_tox_abbr • jecfa

This function extracts the abbreviation of a JECFA monograph.

Usage

extract_jecfa_tox_abbr(tox_monograph)

Arguments

tox_monograph: A character vector with the JECFA monograph

Value

A character vector with the abbreviation of the JECFA monograph

Examples

compose_jecfa_list(1) |>
  get_result() |>
  dplyr::pull("Tox Monograph1") |>
  extract_jecfa_tox_abbr()
#> FAS 24-JECFA 33/97 
#>           "FAS 24"