R guessing game syntax

I'm having trouble with proper bracket syntax when making a guessing game. Here is a brief example of my code

number_result <- readline(prompt = "Choose a number btwn 1 & 100: ")
input <- 0
rand <- sample(seq(1,100), size = 1)

input = number_result


while(input != rand){

  if(input < rand){
    print("Higher!")
  }
  else if(input > rand){
    print("Lower!")
  }
  else(input = rand){
  return(print("You got it!"))
}
    }

My error is:

Error: unexpected '{' in:
"  }
  else(input = rand){"
>     return(print("You got it!"))
[1] "You got it!"
Error: no function to return from, jumping to top level
> }
Error: unexpected '}' in "}"
>     }
Error: unexpected '}' in "    }"
>