5

我相信你们都知道在回归对象上执行 plot 命令时的“hit return to show next plot”语句。我想知道如何在 R 中自己进行这种交互。我在邮件列表中找到了一些帖子,但没有什么真正全面的。其中大部分内容涉及 menu() 和不同的操作系统 GUI。我只是想创建类似的东西:

 Please enter sample size n: 
 > 1000

 #execution of
 rnorm(1000)

可能我刚刚错过了文档的某些部分,根本找不到合适的词来谷歌......

4

2 回答 2

5

不是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")
于 2011-04-13T10:30:56.503 回答
1

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

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

n = as.integer( ask( 'Please enter sample size n' ) )
于 2011-04-13T10:06:11.633 回答