R: if else statement is handling column as whole vector

Question

I have a data set where I want to calculate the 6 month return of stocks with tq_get (see example below)

Dataset called top

t