在 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 的输入。