using tbl_df instead of raw data.frame for the test