DICT built from OHS data typo using R regex