Create a column indicating the presence of a value in a set of columns

Question

I have a table looks like this:

table1 <- data.table(ID = 1:10,
                     col1 = c("x1", "x2", "x3", NA, NA, NA, &