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

Question

我相信你们都知道在回归对象上执行 plot 命令时的“hit return to show next plot”语句。我想知道如何在 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' ) )