Commit b066cf50 authored by Midoux Cedric's avatar Midoux Cedric

download buttons

parent 77d8adb6
......@@ -175,6 +175,11 @@ output$downloadData <- {
)
}
output$downloadPlot <- downloadHandler(
filename = function() {"plot.png"},
content = function(file) {ggsave(file)}
)
# output$rarefactionMin <- renderText({
# validate(need(input$fileBiom, ""),
# need(input$dataset == "input", ""))
......
......@@ -19,14 +19,17 @@ dashboardHeader(title = "Easy16S"),
"Select your data",
icon = icon("upload"),
style = "width: 80% ; color: black ; background-color: gray90"),
actionButton("downloadData",
"Download",
downloadButton("downloadData",
"Download data as RData",
icon = icon("download"),
style = "width: 80% ; color: black ; background-color: gray90"),
downloadButton("downloadPlot",
"Download last plot",
icon = icon("download"),
style = "width: 80% ; color: black ; background-color: gray90"),
#uiOutput("downloadUI"),
sidebarMenu(
menuItem("Summary", tabName = "Summary", icon = icon("dashboard")),
menuItem("Barplot", tabName = "barplot", icon = icon("dashboard")),
menuItem("Summary", tabName = "Summary", icon = icon("table")),
menuItem("Barplot", tabName = "barplot", icon = icon("chart-bar")),
menuItem("Heatmap", tabName = "heatmap", icon = icon("dashboard")),
menuItem("Rarefaction curves", tabName = "rarefactionCurve", icon = icon("dashboard")),
menuItem(HTML("&alpha;-diversity"), tabName = "richnessA", icon = icon("dashboard")),
......
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