【发布时间】:2016-06-16 14:44:47
【问题描述】:
我正在尝试提取名为 tests.stats() 的个人函数的输出
我用return 声明了一个函数:
return(c(list.test.1, list.test.2 ,list.test.3, list.test.4))
每个list.test.<i> 都是一个list 对象。
在闪亮的服务器中:
outlist() <- reactive({
if(is.null(input$datafile)){
return()
}
if(is.null(input$varinteret)
&&is.null(input$vartemps)
&&is.null(input$varsujet)
&&is.null(input$varprod)
&&is.null(input$apparie)
&&is.null(input$tempsrefouinon)
&&is.null(input$prodrefouinon)
&&is.null(input$checkprod)
&&is.null(input$checkprodref)){
return()
} else {
data<-filedata()
res <- tests.stats(data = data(),
y = input$varinteret,
group = input$varprod,
group2 = input$vartemps,
sujet = input$varsujet,
apparie = input$apparie,
temoin = input$prodrefouinon,
TemoinName = input$checkprodref)
}
以及错误信息:
Warning: Error in <-: invalid (NULL) left side of assignment
Stack trace (innermost first):
40: server [C:\Users\itm\Desktop\Documents\appli/server.R#357]
1: shiny::runApp
Error in outlist() <- reactive({ : invalid (NULL) left side of assignment
为什么我会收到这个错误?
【问题讨论】:
-
用
outlist替换outlist()