Having previously written successful xml_find_all commands, I added to my code:
offence_Category <- trialaccounts[[i]] %>% xml_find_all(\'.//