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

Question

如何从终端获取用户输入？我在记事本中编写我的R程序，然后将其复制到R控制台中以运行。我的程序需要用户输入。如果我使用readline，则不会为用户输入而暂停，而是将以下"代码"的行拾取为其响应。类似于猫或猫＆amp;扫描它们是在函数还是在线中。示例：（ 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

已解决：您必须采购整个程序 - 将其保存到文件名中，然后在r console

中

source(filename)

我曾尝试过采购功能，然后将其余的剩余功能复制到r控制台中 - 这是不起作用的，它必须是整个程序（据我发现）。