How to Optimize Large Data Set Processing Using Foreach If Loop and Data.table Syntax in R