Rstudio - while loop doesn't stop until the condition is unapplicable (and returns error)

Question

I\'m new to R, and I am trying to write a while loop to find the lowest elevation band at which there is a certain snow cover fraction, but the code I wrote doesn\'t work, a