R推測ゲームの構文

Question

推測ゲームを作成するときに適切なブラケットの構文に問題があります。ここに私のコードの簡単な例は、

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!")) 
} 
    } 

である私のエラーは、次のとおりです。

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 " }" 
> 

Answer 1

あなたが関数を定義していないので、必要に応じノーリターン。停止条件も指定する必要があります。さもなければあなたは永遠に走ります。 これを試してください

 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 { 
    print("You got it!") 
    } 
    input <- input + 1 
}