Debug export format for heatmap comp

eec80d03 · Amine GHOZLANE · c2e3d1e6 · eec80d03
Commit eec80d03 authored Jun 11, 2020 by Amine GHOZLANE
Hide whitespace changes
Inline Side-by-side

Showing with 3 additions and 2 deletions

server.R server.R +3 -2

No files found.
--- a/server.R
+++ b/server.R
@@ -3296,7 +3296,8 @@ shinyServer(function(input, output,session) {
  
  #### Export Visu
  output$exportVisuComp <- downloadHandler(
-    filename <- function() { paste(input$PlotVisuSelectComp,paste('SHAMAN',input$Exp_format_Visu,sep="."),sep="_") },
+    filename <- function() { 
+      paste(input$PlotVisuSelectComp,paste('SHAMAN',input$Exp_format_VisuComp,sep="."),sep="_") },
    content <- function(file) {
      
      taxo = input$TaxoSelect
@@ -3314,7 +3315,7 @@ shinyServer(function(input, output,session) {
        if(filesize!=0) print(Plot_Visu_Venn(input,BaseContrast,ResDiffAnal(),ContrastListVennDebounce, export=TRUE)$res)
      }
      if(input$PlotVisuSelectComp=="Heatmap_comp"){
-        if(filesize!=0) Plot_Visu_Heatmap_FC(input,BaseContrast,ResDiffAnal(),ContrastListDebounce, SelectTaxoPlotCompDebounce, export=TRUE)
+        if(filesize!=0) print(Plot_Visu_Heatmap_FC(input,BaseContrast,ResDiffAnal(),ContrastListDebounce, SelectTaxoPlotCompDebounce, export=TRUE))
      }
      if(input$PlotVisuSelectComp=="pValueDensity"){
        if(filesize!=0) print(Plot_pValue_Density(input, BaseContrast, ResDiffAnal(), ContrastListDebounce, input$AlphaVal, InputpValueDensityfocus))