I am trying to clean up an irregular dataframe using dplyr functions. My intent here is to evaluate the dataframe by row, and then append a new column that contains all item