Extract the first design category
extractDesign(design_str)
design_str
Design string in e.g., the mouse array
a character vector for the design category