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)
}
if(input$NoTaxoFile&&input$FileFormat=="fileCounts")res=infoBox(h6(strong("Taxonomy table")),subtitle=h6("No taxonomy table has been uploaded, the analysis can only be done at the OTU/gene level"),icon=icon("warning"),color="orange",width=NULL,fill=TRUE)