创建提示/回答系统以将数据输入到 R [英] Creating a Prompt/Answer system to input data into R
问题描述
我已经创建了一些 R 代码供那些对 R 一无所知的人使用(尽管我自己很环保).我一直让人们将初始数据粘贴到 R 控制台(结果好坏参半),我希望为人们设置一种更用户友好的方式来输入数据.
I've created some R code for use by people who know nothing of R (though I'm pretty green myself). I've been having people paste in the initial data to the R console (with mixed results), and I was hoping to set up a more user friendly way for people to enter in data.
理想情况下,有人可以坐在控制台前,输入命令,然后系统会提示有关如何输入数据的具体问题.
Ideally someone could sit down at the console, type in a command, and be prompted with specific questions on how to enter the data.
例如,一个人加载 r 并看到一个提示:
For example, a person loads up r and sees a prompt:
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 的下一步是运行预先编写的代码
And with these 4 newly defined variables (X,Y,T,V) R's next step is to run the pre-written code
X+Y
V+T
在控制台中弹出答案
5
8 8 8 10
大家都很开心
我很抱歉,因为这不是一个可重现的代码类型的问题,但我不知道如何让 R 提问而不是我问关于 R 的问题!
My apologies as this is not a reproducible code kind of question, but I'm not sure how to approach making R ask questions as opposed to me asking question about R!
推荐答案
由于这应该仅用作交互式代码,readline()
可以为您工作.我没有添加任何错误检查,但您可能需要做大量的检查以确保正确的输入.不过,这是核心概念:
Since this is supposed to be used as interactive code only, readline()
can work for you. I did not add any error checking, but you'd probably want to do a fair amount of that to ensure proper input. Here's the core concept though:
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))
}
这篇关于创建提示/回答系统以将数据输入到 R的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持IT屋!