如何在R交互控制台中插入预设文本？

需求说明 #

原本执行以下代码时，控制台会显示空白输入行等待用户输入：

authors <- readLines(if (Sys.getenv("RSTUDIO") == "1") stdin() else "stdin", n = 1)
> [用户光标]

想要实现的效果是预先填入默认文本，让用户可以直接编辑后确认：

default <- "Smith, Black, Jackson"
authors <- readLines(if (Sys.getenv("RSTUDIO") == "1") stdin() else "stdin", n = 1)
> Smith, Black, Jackson[用户光标]

实现方案 #

readLines本身不支持预设输入内容，需根据运行环境（RStudio/普通控制台）选择对应方法：

1. RStudio环境 #

使用rstudioapi包的showPrompt()函数，直接支持设置默认输入值，用户可在弹窗中编辑内容：

library(rstudioapi)

default <- "Smith, Black, Jackson"
authors <- showPrompt(
  title = "输入作者列表",
  message = "请编辑或直接确认作者：",
  default = default
)

2. 普通R控制台 #

借助tcltk包创建带预设内容的输入窗口，用户可在窗口内编辑文本：

default <- "Smith, Black, Jackson"

# 加载R默认自带的tcltk包
require(tcltk)

# 创建输入窗口
tt <- tktoplevel()
tkwm.title(tt, "输入作者列表")
# 创建携带默认值的输入框
entry_var <- tclVar(default)
entry <- tkentry(tt, textvariable = entry_var)
tkpack(entry, padx = 10, pady = 10)

# 绑定回车事件关闭窗口
tkbind(entry, "<Return>", function() tkdestroy(tt))
# 等待窗口关闭后获取输入内容
tkwait.window(tt)

authors <- tclvalue(entry_var)

3. 兼容两种环境的整合代码 #

自动识别运行环境，适配不同场景：

default <- "Smith, Black, Jackson"

if (Sys.getenv("RSTUDIO") == "1") {
  library(rstudioapi)
  authors <- showPrompt(
    title = "输入作者列表",
    message = "请编辑或确认：",
    default = default
  )
} else {
  require(tcltk)
  tt <- tktoplevel()
  tkwm.title(tt, "输入作者列表")
  entry_var <- tclVar(default)
  entry <- tkentry(tt, textvariable = entry_var)
  tkpack(entry, padx = 10, pady = 10)
  tkbind(entry, "<Return>", function() tkdestroy(tt))
  tkwait.window(tt)
  authors <- tclvalue(entry_var)
}

# 输出最终结果
cat("最终作者列表：", authors, "\n")

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