Add groups<- generic.
Use in group_by. Fixes #121