Using sapply and Switch Logic in R: A More Efficient Approach with data.table