[r] Loop through columns and add string lengths as new columns