使 readline 等待 R 中的输入-解网

问：

我试图让我的代码在继续之前要求我输入“TRUE”或“FALSE”值。

如果我一次运行一行，它目前工作正常，但是当我在 RStudio 中一次运行所有代码时，它只是在不等待用户输入的情况下继续，并为我的参数记录值“”。

raw <- readline("TRUE or FALSE -- this is a validation run: ")


if (raw == "F" | raw == "FALSE" | raw == "False"){
validation <- F
} else{
  validation <- T
}
rm(raw)

理想情况下，无论我如何在 RStudio 中-- ,运行它，或者运行它（即选择代码并按下或 ctrl-enter），我都想要一个有效的答案。RScriptsourcerun

r

readLines未设置提示。您需要描述如何使用它。使用 Rscript 不同于交互式使用。您需要回答第一个评论问题。如果您“在 RStudio 中”，那么大多数人会认为它是交互式控制台使用。只是不要假设你可以将它与 Rscript 一起使用或从系统命令行运行。

0赞 Hack-R 11/25/2014

@BondedDust 好吧，我现在就像我说的那样在 RStudio 中，尽管我当然想要一个对任何这些运行方式都健壮的解决方案。这不可能吗？

答：

32赞 IRTFM 11/25/2014 #1

如果你想在交互模式下执行此操作，那么你已经有了答案，但不能与 Rscript 一起使用。对于该实例，您需要使用以下命令向控制台发送消息：cat

如果此测试文件名为“prompt.r”，并且位于您在系统控制台会话中工作的目录中：

cat("a string please: ");
a <- readLines("stdin",n=1);
cat("You entered")
 str(a);
cat( "\n" )

然后，您可以从命令行运行它，如下所示

$ Rscript prompt.r

如果你想要一个通用的脚本，那么这将在交互式条件下运行你的脚本，而我的脚本则用于非交互式条件：

if (interactive() ){raw <- 
             readline("TRUE or FALSE -- this is a validation run: ")

                if (raw == "F" | raw == "FALSE" | raw == "False"){
               validation <- F
                 } else{
                     validation <- T
                       }
           rm(raw)  } else{
#  non-interactive
cat("a string please: ");
a <- readLines("stdin",n=1);
cat("You entered")
 str(a);
cat( "\n" )}

如果你的软件指标是“像Python或Ruby一样做”，那么我看不出有什么方法可以满足这个请求。R具有“人格分裂”。有些函数在交互模式下工作，有些函数不工作。 R 依赖于特定于操作系统的系统级函数进行控制台交互，这些函数与脚本模式下的输入/输出不同。您可能希望将 OR 作为替代者。littlerShiny

19赞 Sohum Daftary 8/23/2016 #2

是否通过突出显示行并单击“运行”来运行代码？如果是这样，那可能是你的问题，因为 R 在终端中逐行输入你的代码。

相反，编写脚本（或注释掉未测试的部分）并单击源代码按钮。然后 R 等待用户响应，而不是将 readline（）之后的行输入到 readline（）中。

我和你有同样的问题，这促使我寻找答案。但后来我尝试了这种不同的代码执行方法，它奏效了。

该功能的帮助页面目前：“此对话框的'RStudio'版本不允许使用空字符串。因此，为了获得更好的可移植性，尽量不要期望用户出现空字符串（“取消”按钮用于关闭对话框）。在 MacOS 上，单引号和双引号暂时替换为其倾斜版本（分别为 Unicode 字符 u3032 和 u2033），因为触发对话框的命令不允许在字符串中使用引号。常规报价在输出上重置。这是我们发现的唯一有效的黑客。欢迎更好的解决方案！

0赞 Kafei Zhang 8/12/2022 #6

您必须创建一个函数，使用“is.na（）”设置一个“if”条件语句，如果输入的值为 null，则再次执行“readline（）”。见下文：

readinteger <- function()
{ 
  n <- readline(prompt="Enter an integer: ")
  n <- as.integer(n)
  if (is.na(n)){
    n <- readinteger()
  }
  return(n)
}
print(readinteger())
rm(list=ls())

上一个：R keras 包错误：找不到 Python 模块 tensorflow.contrib.keras.python.keras

下一个：如何返回异步调用的响应？

使 readline 等待 R 中的输入

Make readline wait for input in R

评论

评论

评论

评论