Commit f2055eae authored by svolant's avatar svolant
Browse files

force reloading files

parent 1178f470
......@@ -264,7 +264,8 @@ body <- dashboardBody(
column(width=6,radioButtons("TypeTable",h6(strong("Type:")),c("OTU/Gene table"="OTU","MGS table"="MGS"))),
column(width=6,selectInput("sepcount", h6(strong("Separator:")),c("Tab" = "\t", "Comma" = ",","Semi-colon" = ";")))
),
fileInput('fileCounts', h6(strong('Select your file')),width="100%")
fileInput('fileCounts', h6(strong('Select your file')),width="100%"),
tags$script('$( "#fileCounts" ).on( "click", function() { this.value = null; });')
),
conditionalPanel(condition="!input.NoTaxoFile",
box(title="Load the taxonomy file",width = 3,height = "260px", status = "primary", solidHeader = TRUE,collapsible = FALSE,
......@@ -278,7 +279,8 @@ body <- dashboardBody(
c("Tab" = "\t", "Comma" = ",", "Semicolon" = ";")))
)
),
fileInput('fileTaxo', h6(strong('Select your file')),width="100%")
fileInput('fileTaxo', h6(strong('Select your file')),width="100%"),
tags$script('$( "#fileTaxo" ).on( "click", function() { this.value = null; });')
)
),
fluidRow(column(width=3,
......@@ -290,7 +292,8 @@ body <- dashboardBody(
conditionalPanel(condition="input.FileFormat=='fileBiom'",
box(title="Load the BIOM file",width = 3, status = "primary", solidHeader = TRUE,collapsible = FALSE,
fileInput('fileBiom', h5(strong('Select your file')),width="100%")
fileInput('fileBiom', h5(strong('Select your file')),width="100%"),
tags$script('$( "#fileBiom" ).on( "click", function() { this.value = null; });')
),
fluidRow(uiOutput("InfoBIOM"))
)
......@@ -315,7 +318,8 @@ body <- dashboardBody(
column(width=5,
box(title="Experimental design",width = NULL, status = "primary", solidHeader = TRUE,collapsible = TRUE,collapsed = FALSE,
fluidRow(
column(width=5,fileInput('fileTarget', h6(strong('Select your target file')),width="100%")
column(width=5,fileInput('fileTarget', h6(strong('Select your target file')),width="100%"),
tags$script('$( "#fileTarget" ).on( "click", function() { this.value = null; });')
),
column(width=3,selectInput("septarget", h6(strong("Separator:")), c("Tab" = "\t", "Comma" = ",", "Semicolon" = ";"))),
column(width=4,uiOutput("SelectTaxo"))
......@@ -373,7 +377,8 @@ body <- dashboardBody(
column(width=3,
uiOutput("SelectVarNorm")),
column(width=3,
fileInput('fileSizeFactors', h6(strong('Define your own size factors')),width="100%")
fileInput('fileSizeFactors', h6(strong('Define your own size factors')),width="100%"),
tags$script('$( "#fileSizeFactors" ).on( "click", function() { this.value = null; });')
),
column(width=3, selectInput("sepsize", h6(strong("Separator:")), c("Tab" = "\t", "," = "Comma", "Semicolon" = ";"))),
column(width=3,br(),htmlOutput("InfoSizeFactor"))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment