R语言使用utils包menu()函数时代码不暂停如何处理？

该现象本质是整段一次性提交所有代码到R控制台运行时，R会把所有提交的代码内容按顺序归入标准输入流，menu()函数读取输入时会直接读取还未执行的后续代码行，不会主动等待人工输入。

分两类处理方式：

无需修改代码的方案 #

仅调整运行逻辑即可解决，也是日常开发最常用的处理方式：

• 第一步：先选中select_data、calc_mean_hp两个函数的定义代码单独运行，完成函数加载
• 第二步：单独运行selected <- select_data(mtcars)，等待菜单弹出完成选择，函数返回结果后再运行hp <- calc_mean_hp(selected)

需要修改代码的方案 #

如果需要支持整段代码一次性运行也能暂停等待用户输入，可任选以下方案：

方案1：跨终端可用的base R实现（无需额外装包） #

手动实现菜单逻辑，强制从终端读取输入，避免读取批量提交的后续代码：

library(dplyr) # 原代码用到dplyr的filter，需先加载依赖包

select_data <- function(dat) {
  # 打印菜单提示
  cat("Choose number of carburetors:\n")
  cat("1: 1\n2: 2\n3: 3\n")
  # 强制从终端读取输入，不会读取批量提交的后续代码
  resp <- as.integer(readline(con = file("")))
  # 输入合法性校验
  while(!resp %in% 1:3) {
    resp <- as.integer(readline("输入不合法，请重新选择1/2/3："))
  }
  sel_dat <- dat %>% filter(carb == resp)
  return(sel_dat)
}

calc_mean_hp <- function(dat) {
  mean_hp <- mean(dat$hp)
  return(mean_hp)
}

selected <- select_data(mtcars)
hp <- calc_mean_hp(selected)

方案2：最简改动，调用图形化选择框 #

给menu()函数加graphics = TRUE参数，会弹出独立的GUI选择窗口，完全不会读取控制台的后续代码：

resp <- menu(c("1", "2", "3"), title = "Choose number of carburetors", graphics = TRUE)

注意：该方案仅支持有图形界面的运行环境，无GUI的服务器终端无法使用。

特殊场景说明 #

如果代码用于无人工干预的批量运行场景，不建议使用交互选择逻辑，改为通过参数传递要选择的数据集标识更合理。

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