res=list(selectInput("FastQList",label="List of the fastq files in the selected directory",values$fastq_names_only,multiple=TRUE,selectize=FALSE,size=6),
res=list(selectInput("FastQList",label="List of the fastq files in the selected directory",isolate(values$fastq_names_only),multiple=TRUE,selectize=FALSE,size=6),
res=infoBox("Fastq files","Load the fastq files ",color="light-blue",width=NULL,icon=icon("play"),fill=TRUE)
if(input$LoadFiles>=1){
if(length(unique(values$fastq_names_only))==0)res=infoBox("Fastq files","Select a working directory with at least one fastq file",color="red",width=NULL,icon=icon("play"),fill=TRUE)
if(!is.null(input$dir)){
if(length(unique(values$fastq_names_only))==0)res=infoBox("Fastq files","Select at least one fastq file",color="red",width=NULL,icon=icon("play"),fill=TRUE)
if(length(unique(values$fastq_names_only))>0)res=infoBox("Fastq files",paste(length(unique(values$fastq_names_only)),"files are loaded"),color="green",width=NULL,icon=icon("play"),fill=TRUE)