CJ could fail with proper message when exceeds limit

[jangorecki]

library(data.table)
CJ(1:100, 1:100, 1:100, 1:100, 1:100, 1:100, 1:100, 1:100, 1:100, 1:100)
#Error in rep.int(y, times = rep.int(x[i], n[i])) : invalid 'times' value