[r] Using If/Else on a data frame