https://researchdatapod.com/how-to-solve-r-error-the-condition-has-length-1/