（控制台）R 中的用户交互？

Question

我相信你们都知道在回归对象上执行绘图命令时的“点击返回以显示下一个绘图”语句。我想知道如何在 R 中自己进行这种交互。 我在邮件列表上找到了几篇帖子，但没有什么真正全面的。其中大部分涉及 menu() 和不同操作系统的 GUI。我只是想创建类似的东西：

 Please enter sample size n: 
 > 1000

 #execution of
 rnorm(1000)

可能我刚刚错过了文档的某些部分，并且根本无法找到合适的单词来谷歌......

Answer 1

不是readLines而是readline。

n <- as.integer(readline(prompt = "Please enter sample size > "))

一个稍微花哨的实现：

read_value <- function(prompt_text = "", prompt_suffix = getOption("prompt"), coerce_to = "character")
{
  prompt <- paste(prompt_text, prompt_suffix)
  as(readline(prompt), coerce_to)
} 

read_value("Please enter sample size", coerce_to = "integer")

Answer 2

您可以使用 readLines，但我确信还有其他方法......

ask = function( prompt ) {
    cat( paste( prompt, ':' ) )
    readLines( n=1 )
}

n = as.integer( ask( 'Please enter sample size n' ) )