- Ajout du jeux de données 8kpbmc

app.R

@@ -74,7 +74,7 @@ sidebar <- dashboardSidebar(
                                              uiOutput("group"), br(),
                                              radioButtons("gographtype", label="Choose a graph type :", choices=c("Dotplot"="dplot", "Barplot"="bplot", "Emapplot" = "eplot")), br(),
                                              radioButtons("ontology", label="Choose an ontology :", choices=c("Biological Process"="BP", "Molecular Function"="MF", "Cellular Component" = "CC")), br(),
-                                             br(), actionButton("gogo", icon = icon("far fa-arrow-alt-circle-right"), label="Do Gene Ontology")
+                                             actionButton("gogo", icon = icon("far fa-arrow-alt-circle-right"), label="Do Gene Ontology")
                             )
                      )
                    )
@@ -156,7 +156,8 @@ sidebar <- dashboardSidebar(
                                              radioButtons(inputId="graph_grid", label= "Choose the graph mode :", c("t-SNE" = "tsne", "UMAP" = "umap")),
                                              sliderInput(inputId="ptsize_grid", label="Point size :", min=0.1, max=2, step=0.1, value = 0.6, ticks = FALSE),
                                              hr(),
-                                             selectizeInput(inputId="listminigenes", label="Choose a gene :", choices ="", multiple = TRUE)
+                                             selectizeInput(inputId="listminigenes", label="Choose a gene :", choices ="", multiple = TRUE), br(),
+                                             uiOutput("dlgrid")
                             )
                      )
                    )
@@ -470,7 +471,7 @@ server <- function(input, output, session) {
     }
   })
   
-  ## 9 Grid Genes Miniplots Generation & Outputs --------
+  ## Grid Genes Miniplots Generation & Outputs --------
   
   output$minigenes <- renderPlot({
     req(wrfile())
@@ -741,6 +742,23 @@ server <- function(input, output, session) {
     }
   )
   
+  output$dlgrid <- renderUI ({ # Grid Page
+    req(gridData() != "")
+    downloadButton("dlminiplots_grid", label="")
+  })
+  
+  output$dlminiplots_grid <- downloadHandler( # Grid Page
+    filename = function() {
+      paste0(file_path_sans_ext(filedata$name),"_gridplot_",input$graph_grid,".svg")
+    },
+    content = function(file) {
+      svg(file)
+      print(gridData())
+      dev.off()
+    }
+  )
+  
+  
   ## Information Visualize text --------
   output$information  <- renderUI({
     req(wrfile())