Commit b066cf50 authored by Midoux Cedric's avatar Midoux Cedric

download buttons

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