如何在R控制台中获得用户输入

Question

如何从终端获取用户输入？ 我在记事本中写入R程序，然后将其复制到R控制台中运行。我的程序需要用户输入。 如果我使用readline，它不会暂停用户输入，但会提取下面一行'code'作为其响应。 与猫或猫&相似，请扫描它们是在函数内还是在线内使用。 例子：（该xxread1：4在那里停止产生错误的程序）

read_message=function() 
    {xx<-readline('does it appear? ')} 
readkey <- function() 
    {cat("[press [enter] to continue]") 
    number <- scan(n=1,what='character')} 
x=read_message() 
xrread1='1' 
x=readline(prompt='Is it real? ') 
xrread2='2' 
gh=readkey() 
xrread3='3'    
cat("[enter field]") 
number <- scan(n=1,what='character') 
xrread4='4' 
number 

我知道这看起来并不像有效的代码，但运行它 - 它的工作原理，但 不会暂停用户输入，读取结果等是以下数字。 那么如何获得用户输入？

Answer 1

解决： 你要采购整个程序 - 它保存到一个文件名，然后在

source(filename) 

我曾试图刚刚采购的功能，然后复制/粘贴，其余为R控制台 - [R控制台 - - 这不起作用，它必须是整个程序（据我发现）。