r - 创建提示/应答系统以将数据输入到 R 中

Question

我创建了一些 R 代码，供对 R 一无所知的人使用(尽管我自己也很新手)。我一直让人们将初始数据粘贴到 R 控制台(结果好坏参半)，我希望为人们输入数据建立一种更加用户友好的方式。

理想情况下，有人可以坐在控制台前，输入命令，然后系统会提示有关如何输入数据的具体问题。

例如，一个人加载 r 并看到提示:

What is x value?

此人输入:

2

下一个提示:

What is y value?

用户输入:

3

下一个提示:

 What are T values?

用户输入:

 4,3,2,1

下一个提示:

什么是 V 值？

人员输入:

4,5,6,9

有了这 4 个新定义的变量 (X,Y,T,V)，R 的下一步就是运行预先编写的代码

X+Y
V+T

在控制台中会弹出答案

5
8 8 8 10

大家都很高兴

我很抱歉，因为这不是一个可重现的代码类型的问题，但我不确定如何让 R 提出问题，而不是我问有关 R 的问题!

Answer 1

由于这应该仅用作交互式代码，因此 readline() 可以为您工作。我没有添加任何错误检查，但您可能需要做大量的检查以确保正确的输入。但核心概念如下:

fun <- function(){
  x <- readline("What is the value of x?")  
  y <- readline("What is the value of y?")
  t <- readline("What are the T values?")
  v <- readline("What are the V values?")

  x <- as.numeric(unlist(strsplit(x, ",")))
  y <- as.numeric(unlist(strsplit(y, ",")))
  t <- as.numeric(unlist(strsplit(t, ",")))
  v <- as.numeric(unlist(strsplit(v, ",")))

  out1 <- x + y
  out2 <- t + v

  return(list(out1, out2))

}