HTML('<center><h1><strong>Your project is done !</strong></h1> <br/> <em><h4> Hereafter is a summary of the building and annotation processes</h4> </em><br/> </center>'),
br(),
column(width=5,
valueBox(ap$Count[1],tags$strong(tags$h5("Number of amplicons",style="width: 70%;")),color="light-blue",width=NULL,icon=uiOutput("amplicon_icon")),
valueBox(ap$Count[2],tags$strong(tags$h5("Remaining amplicons after dereplication",style="width: 70%;")),color="light-blue",width=NULL,icon=uiOutput("dereplication_icon")),
valueBox(ap$Count[3],tags$strong(tags$h5("Remaining amplicons after removing singletons",style="width: 70%;")),color="light-blue",width=NULL,icon=uiOutput("singleton_icon")),
valueBox(ap$Count[4],tags$strong(tags$h5("Remaining amplicons after removing chimera",style="width: 70%;")),color="light-blue",width=NULL,icon=uiOutput("chimera_icon"))
),
column(width=5,offset=2,
box(title="Upload the results",width=NULL,background="light-blue",
selectInput("masque_database","Select the database",choices=c("Silva"="silva","Greengenes"="greengenes")),
HTML('<center><h1><strong>Your project is done !</strong></h1> <br/> <em><h4> Hereafter is a summary of the building and annotation processes</h4> </em><br/> </center>'),
br(),
column(width=5,
valueBox(ap$Count[1],tags$strong(tags$h5("Number of amplicons",style="width: 70%;")),color="light-blue",width=NULL,icon=uiOutput("amplicon_icon")),
valueBox(ap$Count[2],tags$strong(tags$h5("Remaining amplicons after dereplication",style="width: 70%;")),color="light-blue",width=NULL,icon=uiOutput("dereplication_icon")),
valueBox(ap$Count[3],tags$strong(tags$h5("Remaining amplicons after removing singletons",style="width: 70%;")),color="light-blue",width=NULL,icon=uiOutput("singleton_icon")),
valueBox(ap$Count[4],tags$strong(tags$h5("Remaining amplicons after removing chimera",style="width: 70%;")),color="light-blue",width=NULL,icon=uiOutput("chimera_icon"))
),
column(width=5,offset=2,
box(title="Upload the results",width=NULL,background="light-blue",
selectInput("masque_database","Select the database",choices=c("Silva"="silva","Greengenes"="greengenes")),
}else{res=HTML('<center><h1><strong>Your project is done !</strong></h1> <br/> <em><h4> Hereafter is a summary of the building and annotation processes</h4> </em> </center>')}
res[[2]]=fluidRow(column(width=12,strong(h3("Building process table")),DT::dataTableOutput("build_process_table")))
}
}else{res=HTML('<center><h1><strong>Your project is done !</strong></h1> <br/> <em><h4> Hereafter is a summary of the building and annotation processes</h4> </em> </center>')}
HTML('<center><h1><strong>Sorry, the workflow failed during progression</strong></h1> <br/> <em><h4> Hereafter is the message error.</h4> </em> <br/> </center>'),
HTML('<center><h1><strong>Sorry, the workflow failed during progression</strong></h1> <br/> <em><h4> Hereafter is the message error.</h4> </em> <br/> </center>'),