在R中创建一个健壮的readline脚本

Question

下面的我的R脚本是可行的，但不健壮，因为它仅在我使用快捷键ctrl + alt + r（RStudio）从R脚本文件运行它时才有效，而使用其他快捷键ctrl则无法正常运行+ a然后按ctrl + Enter。

如何让脚本更加健壮以便以任何方式工作？

enterval <- function()  {
   fNumGlobal <<- (readline("Please choose a file to analyze: "))
}

fNumGlobal = -1
enterval()
( fNumGlobal )

后一种情况会返回一条这样的行，无法进行用户输入。

Please choose a file to analyze: ( fNumGlobal )

Answer 1

将大括号括在代码中

{
enterval <- function()  {
  fNumGlobal <<- (readline("Please choose a file to analyze: "))
}

fNumGlobal = -1
enterval()
( fNumGlobal )
}

意味着在将整个脚本传递到控制台窗口之前，它们都不会运行，因此下一行代码不可能被解释为readline的输入。