R Markdown制作R包Vignette时readline()交互报错的解决咨询

1. 给函数添加参数预设用户输入 #

修改你的分析函数，新增一个类似user_input的参数，默认值设为NULL。当参数为NULL时，触发readline()进行交互输入；当指定参数值（比如1代表Yes、2代表No）时，直接使用预设值跳过交互逻辑。

示例代码：

your_analysis_function <- function(threshold, user_input = NULL) {
  # 处理用户输入逻辑
  if (is.null(user_input)) {
    user_choice <- readline(prompt = "是否基于当前阈值继续分析？Yes(1)/No(2): ")
    user_choice <- as.integer(user_choice)
  } else {
    user_choice <- as.integer(user_input)
  }
  
  # 核心分析分支
  if (user_choice == 2) {
    warning("分析已终止")
    return(invisible(NULL))
  } else if (user_choice == 1) {
    message("继续分析...")
    # 此处编写你的分析代码
  } else {
    warning("无效输入，分析终止")
    return(invisible(NULL))
  }
}

在vignette编织时，直接指定参数值即可跳过交互：

your_analysis_function(threshold = 0.5, user_input = 1)

2. 检测运行环境自动切换模式 #

在函数内部用interactive()判断当前是否为交互环境（比如终端），非交互环境（如R Markdown编织）自动使用默认选项。

示例代码：

your_analysis_function <- function(threshold) {
  if (interactive()) {
    user_choice <- readline(prompt = "是否基于当前阈值继续分析？Yes(1)/No(2): ")
    user_choice <- as.integer(user_choice)
  } else {
    # 非交互环境默认选择继续，也可设为2终止分析
    user_choice <- 1
    message("非交互环境，默认选择继续分析")
  }
  
  # 核心分析分支与上述一致
  if (user_choice == 2) {
    warning("分析已终止")
    return(invisible(NULL))
  } else if (user_choice == 1) {
    message("继续分析...")
    # 此处编写你的分析代码
  } else {
    warning("无效输入，分析终止")
    return(invisible(NULL))
  }
}

这种方式无需修改vignette中的函数调用，函数会自动适配运行环境。

3. 用knitr钩子模拟输入（临时方案） #

如果不想修改函数，可以借助knitr的钩子功能模拟readline()的输入，但这种方法仅适合临时调试，不如修改函数参数的方式规范。

在R Markdown的代码块中添加钩子设置：

knitr::knit_hooks$set(input = function(x, options) {
  paste0(x, "\n", options$input)
})

然后在调用函数的代码块中指定模拟输入值：

# ```{r, input=1}
your_analysis_function(threshold = 0.5)
# ```

总结 #

R Markdown编织时处于非交互环境，readline()无法获取用户输入，必须通过让函数支持预设输入或自动检测环境切换行为来解决。最推荐的方案是给函数添加预设参数，既保留终端环境的交互性，又能保证vignette顺利编译。

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