Let's try to solve upset plots

Rfunctions/CompPlot.R

@@ -285,8 +285,10 @@ Plot_UpSet <- function(input,BaseContrast, resDiff, ContrastListDebounce, export
     maxRow = max(apply(df,2,FUN=function(x) length(which(!is.na(x)))))
     df = df[1:max(maxRow,1),]
     df = df[,which(apply(!is.na(df),2,any))]
-  }}
-  return(list(plot=plot,table=df, contrasts_without_diff=contrasts_without_diff))
+    }}
+  if(export) res = list(plot=plot,table=df, contrasts_without_diff=contrasts_without_diff)
+  else res = list(table=df, contrasts_without_diff=contrasts_without_diff)
+  return(res)
 }
 
 

server.R

@@ -3425,7 +3425,7 @@ shinyServer(function(input, output,session) {
         if(filesize!=0) print(Plot_MultipleVenn(input, BaseContrast, ResDiffAnal(), ContrastListDebounce)$plot)
       }
       if(input$PlotVisuSelectComp=="UpSet"){
-        if(filesize!=0) print(Plot_UpSet(input, BaseContrast, ResDiffAnal(), ContrastListDebounce)$plot)
+        if(filesize!=0) print(Plot_UpSet(input, BaseContrast, ResDiffAnal(), ContrastListDebounce, export=TRUE)$plot)
       }
       if(input$PlotVisuSelectComp=="LogitPlot"){
         if(filesize!=0) print(Plot_Comp_Logit(input, BaseContrast, ResDiffAnal(), SelectTaxoPlotCompDebounce, export = TRUE))
@@ -3825,7 +3825,7 @@ shinyServer(function(input, output,session) {
     if(is.na(filesize)){filesize=0}
     if(filesize!=0){
       BaseContrast = read.table(namesfile,header=TRUE)
-      if(!is.null(resDiff$dds)) withProgress(message="Loading...",Plot_UpSet(input, BaseContrast, resDiff, ContrastListDebounce)$plot)
+      if(!is.null(resDiff$dds)) withProgress(message="Loading...",Plot_UpSet(input, BaseContrast, resDiff, ContrastListDebounce, export=TRUE)$plot)
     }
   })
   

ui.R

@@ -1392,14 +1392,16 @@ function(request) {
                                                 column(width=6,numericInput("widthVisuExportComp", "Width (in px)",min=100,max=NA,value = 800,step =1))
                                               ),
                                               downloadButton("exportVisuComp", "Export plot"),
-                                              conditionalPanel(condition = "input.PlotVisuSelectComp=='UpSet'", br(), h5(strong("Export table")), fluidRow(column(width = 7, br(), downloadButton("exportVisuCompTableUpSet", "Export table")), 
-                                                                                                                         column(width = 5, selectInput("sepTabUpset", h6(strong("Separator:")), c("Tab" = "\t", "Comma" = ",", "Semicolon" = ";")))))
+                                              conditionalPanel(condition = "input.PlotVisuSelectComp=='UpSet'", br(), h5(strong("Export table")), fluidRow(column(width = 7, selectInput("sepTabUpset", h6(strong("Separator:")), c("Tab" = "\t", "Comma" = ",", "Semicolon" = ";")),
+                                                                                                                                                                  br(), downloadButton("exportVisuCompTableUpSet", "Export table")) 
+                                                                                                                         ))
                                           )
                          ),
                          conditionalPanel(condition="input.PlotVisuSelectComp=='Venn'",
                                           box(title = "Export table",  width = NULL, status = "primary", solidHeader = TRUE,collapsible = TRUE,collapsed= TRUE,
-                                              fluidRow(column(width = 7, br(), downloadButton("exportVisuCompTableVenn", "Export table")), 
-                                                       column(width = 5, selectInput("sepTabVenn", h6(strong("Separator:")), c("Tab" = "\t", "Comma" = ",", "Semicolon" = ";"))))))
+                                              fluidRow(column(width = 7, selectInput("sepTabVenn", h6(strong("Separator:")), c("Tab" = "\t", "Comma" = ",", "Semicolon" = ";")), 
+                                                                  br(), downloadButton("exportVisuCompTableVenn", "Export table")) 
+                                                       )))
                   )
                 )
         ),