Add a check for non-unique label function

[statasaurus]

metacore$var_spec %>% 
  mutate(var1 = str_remove(variable, "[[:alnum:]]+\\.")) %>% 
  group_by(var1) %>% 
  mutate(n_lab = n_distinct(label)) %>% 
 filter(n_lab > 1)