Agreements should have a unique identification number that is meaningful, we condense their signature dates to produce this number.
code_dates(date)
A character vector with condensed dates
if (FALSE) { # \dontrun{
IEADB <- dplyr::slice_sample(manyenviron::agreements$IEADB, n = 10)
code_dates(IEADB$Title)
} # }