Codes an acronym for agreement titles to facilitate comparison.
code_acronym(title)
Codes acronyms that are 4 to 6 digits long. For shorter treaty titles, six words or less, acronym includes first letter of each word. For longer treaty titles, seven words or more, acronym includes first letter of first word in title, followed by the number of words in the title, and first letter of last word in title.
if (FALSE) { # \dontrun{
IEADB <- dplyr::slice_sample(manyenviron::agreements$IEADB, n = 10)
code_acronym(IEADB$Title)
} # }