# stop("cannot find appropriate results in the DESeqDataSet.\npossibly nbinomWaldTest or nbinomLRT has not yet been run.")
# }
# if (!missing(contrast)) {
# if (is.character(contrast) & length(contrast) != 3) {
# stop("'contrast', as a character vector of length 3, should have the form:\ncontrast = c('factorName','numeratorLevel','denominatorLevel'),\nsee the manual page of ?results for more information")
# }
# if (is.list(contrast) & length(contrast) == 1) {
# contrast <- list(contrast[[1]], character())
# }
# if (is.list(contrast) & length(contrast) != 2) {
# stop("'contrast', as a list, should have length 2,\nsee the manual page of ?results for more information")
# }
# if (is.list(contrast) & !(is.character(contrast[[1]]) &
# is.character(contrast[[2]]))) {
# stop("'contrast', as a list of length 2, should have character vectors as elements,\nsee the manual page of ?results for more information")
# }
# print("OKG2")
# res <- if (!parallel) {cleanContrast(object, contrast, expanded = isExpanded, listValues = listValues, test = test)}
if(is.null(check$CheckCounts$Error)&&is.null(check$CheckCounts$Warning))res=infoBox(h6(strong("Counts table")),subtitle=h6(paste("Format of the counts table seems to be OK")),icon=icon("thumbs-o-up"),color="green",width=NULL,fill=TRUE)
}
return(res)
})
# Infobox Error counts
output$InfoErrorTaxo<-renderInfoBox({
tmp=dataInput()
data=tmp$data
check=tmp$check
cond=(!is.null(data$taxo)&&nrow(data$taxo)>0)
res=infoBox(h6(strong("Taxonomy table")),subtitle=h6("Load the taxonomy table"),color="light-blue",width=NULL,fill=TRUE,icon=icon("upload"))
if(is.null(check$CheckTaxo$Error)&&is.null(check$CheckTaxo$Warning))res=infoBox(h6(strong("Taxonomy table")),subtitle=h6(paste("Format of the taxonomy table seems to be OK")),icon=icon("thumbs-o-up"),color="green",width=NULL,fill=TRUE)