使功能互动闪亮

时间:2015-10-19 10:16:29

标签: shiny

一个txt.file data包含一个整数矩阵,每列有1000行整数。

所以,如果我们按下

data

我们得到这个输出

96520
69850
...
36884

我们可以通过此

获得随机行
getnumbers <- sample(data,1, replace=FALSE)

通过在data中获取随机行,任务是进入下一行(按a,b,c,d,e)并检查它是否正确。因此,如果我们在data中有第k个条目,我们希望通过按下数字来获取data中的k + 1条目,并查看它是否正确。

check <- function(a,b,c,d,e){
if( identical( data[k+1] , c(a,b,c,d,e)) == TRUE ) {
return("Correct") }
else{return("Not correct")}

如何在Shiny中实现这个R代码,以便我可以使用ubuntu进行交互?

1 个答案:

答案 0 :(得分:1)

希望我能正确理解你的问题但是你可以做到这一点:

{{1}}