Removing Duplicate Rows When Spreading Data with R's Spread Function