(控制台)R中的用户交互？

Question

我确信你们在回归对象上执行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")