我已经创建了一些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的问题!

推荐答案

因为这应该只作为交互代码使用,所以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))

}

R相关问答推荐

使用ggcorrplot删除值,但保留不重要相关性的 colored颜色

在R中,如何在使用tibble::enFrame % % unlist转换后从收件箱中重组嵌套列表?

如何通过r中每20滚动和来创建组将数据视为1:10

修改dDeliverr中列表列的最后一个元素

如何将图案添加到ggplot中的一个类别

r带有参考年的两年移动平均线

从有序数据中随机抽样

计算R中的威布尔分布的EDF

如何删除R中除某些特定名称外的所有字符串?

根据R中的另一个日期从多列中 Select 最近的日期和相应的结果

根据R中两个变量的两个条件删除带有dspirr的行

如何自定义Shapviz图?

隐藏e_mark_line的工具提示

根据模式将一列拆分为多列,并在R中进行拆分

R Sapply函数产生的值似乎与for循环方法略有不同

我如何才能找到FAMILY=POISSON(LINK=&Q;LOG&Q;)中的模型预测指定值的日期?

R-按最接近午夜的时间进行筛选

有没有一种方法可以同时对rhandsontable进行排序和从rhandsontable中删除?

防止在更新SHINY中的Reactive Value的部分内容时触发依赖事件

在不对R中的变量分组的情况下取两行的平均值