R文本消息输出取决于输入的击键

Question

我有两条短信和一个问题。

text1 <- "that is correct"

text2 <- "that is incorrect"

print("Question: Is 2+2=4 ?")

如果按Y键，我希望打印出text1的短信，如果按下N键，则打印出text2的短信。

我如何在R中完成此操作？