less annoying behavior for head on a list (R)