Commit b0877319 authored by Midoux Cedric's avatar Midoux Cedric

downloadButton

parent c69c4f29
......@@ -122,6 +122,34 @@ shinyServer
}
})
data <- reactiveValues()
{
observe({
if (!is.null(data16S()))
isolate(data <<- data16S())
})
}
output$downloadData <- {
downloadHandler(
filename = function() {
paste("Easy16S-data", Sys.Date(), "RData", sep = ".")
},
content = function(file) {
save(data, file = file)
}
)
}
output$downloadUI <- renderUI({
validate(need(data16S(), ""))
tags$div(
style = "text-align:center",
title = "Download as RData",
downloadButton("downloadData", "Download", style = "color: black; background-color: gray90")
)
})
output$rarefactionMin <- renderText({
validate(need(input$fileBiom, ""),
need(input$dataset == "input", ""))
......
......@@ -67,7 +67,7 @@ shinyUI(dashboardPage(
fileInput("fileTree",
label = "Phylogenetic tree : ",
placeholder = "data.nwk")
)#,
),
# tags$div(
# title = "Representative FASTA sequences of OTU",
# fileInput(
......@@ -75,7 +75,8 @@ shinyUI(dashboardPage(
# label = "FASTA sequences : "),
# placeholder = "data.fasta"
# )
# )
# ),
uiOutput("downloadUI")
),
dashboardBody(
tabsetPanel(
......
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