R data table how can I efficiently pass data row-wise to a function, using a vector of column names