Choose groups to keep/drop in data.table

Question

How can I drop/keep groups according to a condition in data.table? Is there a better method than adding a new column, then filtering on that column and removing it?

Answer 1

I am sure that it is not the best solution, but that works.

dt[a%in% dt[, a[2%in%b], by=a][, a],]