R代码无法连续执行输入计算：逐行运行及NA报错求助

问题根源 #

一次性执行整段代码时，R会连续输出两个readline的提示文本，导致第二个提示与第一个输入区域混杂，用户输入的内容被错误识别为包含代码文本（如odds2 <- ...），as.integer无法将非整数文本转换为整数，从而触发NAs introduced by coercion警告，最终计算结果为NA。

修正方案1：封装为函数（推荐） #

将代码封装为函数，调用时才依次触发输入提示，避免prompt与代码内容混杂，同时增加输入验证避免NA产生：

calculate_odds <- function() {
  odds1 <- as.integer(readline(prompt = "请输入赔率第一部分：\n"))
  odds2 <- as.integer(readline(prompt = "请输入赔率第二部分：\n"))
  
  # 验证输入是否为有效整数
  if (is.na(odds1) || is.na(odds2)) {
    stop("输入必须是整数，请重新运行！")
  }
  
  newOdds <- odds2 / (odds2 + odds1)
  cat("计算结果：", newOdds, "\n")
}

# 调用函数执行计算
calculate_odds()

修正方案2：添加换行符分离提示 #

在每个readline的prompt末尾添加\n换行，确保提示文本与输入区域清晰分离，同时保留输入验证：

odds1 <- as.integer(readline(prompt = "请输入赔率第一部分：\n"))
odds2 <- as.integer(readline(prompt = "请输入赔率第二部分：\n"))

if (is.na(odds1) || is.na(odds2)) {
  stop("输入必须是整数，请重新运行！")
}

newOdds <- odds2 / (odds2 + odds1)
print(newOdds)

使用说明 #

一次性运行整段修正后的代码，控制台会依次弹出输入提示，输入两个整数后即可直接得到计算结果。

内容的提问来源于stack exchange，提问作者Eddie