shinydashboard::valueBox(ap$Count[5],tags$strong(tags$h5("Number of OTU",style="width: 70%;")),color="light-blue",width=NULL,icon=uiOutput("otu_icon"))
shinydashboard::valueBox(ap$Count[6],tags$strong(tags$h5("Number of OTU annotated by SILVA",style="width: 70%;")),color="light-blue",width=NULL,icon=uiOutput("silva_icon")),
shinydashboard::valueBox(ap$Count[8],tags$strong(tags$h5("Number of OTU annotated by RDP",style="width: 70%;")),color="light-blue",width=NULL,icon=uiOutput("rdp_icon"))
)
}
elseif(json_data[[1]]$type=="18S"){
elseif(json_data$type=="18S"){
column(width=5,
strong(h3("18S annotation process")),
shinydashboard::valueBox(ap$Count[6],tags$strong(tags$h5("Number of OTU annotated by SILVA",style="width: 70%;")),color="light-blue",width=NULL,icon=uiOutput("silva_icon")),
shinydashboard::valueBox(ap$Count[8],tags$strong(tags$h5("Number of OTU annotated by RDP",style="width: 70%;")),color="light-blue",width=NULL,icon=uiOutput("rdp_icon"))
)
}
elseif(json_data[[1]]$type=="23S_28S"){
elseif(json_data$type=="23S_28S"){
column(width=5,
strong(h3("23S/28S annotation process")),
shinydashboard::valueBox(ap$Count[6],tags$strong(tags$h5("Number of OTU annotated by SILVA",style="width: 70%;")),color="light-blue",width=NULL,icon=uiOutput("silva_icon")),