在 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 )

后一种情况returns像这样的一行，用户输入失败。

Please choose a file to analyze: ( fNumGlobal )

Answer 1

将代码用大括号括起来

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

fNumGlobal = -1
enterval()
( fNumGlobal )
}

意味着它的 none 将是 运行 直到整个脚本被传递到控制台 window，所以下一行代码不可能被解释作为 readline 的输入。