How to insert compound objects or for loops within a data.table by groups?

Question

What is the easiest/fastest way to convert an rbinded loop of data.table operations into a data.table of loops?

Toy example:

set.seed(1)
DT <- data.tabl