Without this change I was getting the following error:
Error in attributes(out) <- attributes(col) : 
  'names' attribute [9] must be the same length as the vector [1]