R语言菜单交互while循环无法重复执行问题求解

架构老林

2026-10-15

问题原因

你的代码无法重复弹出菜单的核心问题是仅在while循环外部读取了一次用户输入，进入循环后x的取值不会更新，执行完一次判断后就会进入死循环或直接退出，同时原有判断逻辑存在范围错误，部分分支永远无法触发。

修正后完整代码

（已将菜单内容翻译为中文，如需保留英文界面可直接替换为原有代码的菜单文本）

menu <- "菜单: \n1. 科幻 \n2. 计算机与技术 \n3. 烹饪 \n4. 商业 \n5. 漫画 \n6. 退出"

menuV <- c("你选择了科幻类，这是一个充满想象力的主题。",
           "你选择了计算机与技术类，这是一个专业性较强的主题。",
           "你选择了烹饪类，这是一个充满生活气息的主题。",
           "你选择了商业类，这是一个严谨务实的主题。",
           "你选择了漫画类，这是一个轻松有趣的主题。")

# 初始化x为非6的值，保证首次循环可正常进入
x <- 0
while (x != 6) {
  # 每次循环都重新弹出菜单、读取用户输入
  x <- readline(prompt = paste(menu, "\n请输入对应数字选择菜单选项："))
  x <- as.numeric(x)
  if (x == 6) {
    print("已退出菜单。")
    break
  } else if (x >= 1 & x <= 5) {
    print(menuV[x])
  } else {
    print("输入无效，请重新尝试。")
  }
}