swapped data.table for dplyr