From 6b6407c1c6a3c1d2efc124bc8afae0615bab88a9 Mon Sep 17 00:00:00 2001
From: ritamtbsilva <ritamtbsilva@gmail.com>
Date: Tue, 22 Oct 2024 16:42:12 +0100
Subject: [PATCH 1/2] Enabling exporting full tables instead of subset

---
 server.R | 13 ++++++++-----
 1 file changed, 8 insertions(+), 5 deletions(-)

diff --git a/server.R b/server.R
index 0914c87..aee4b13 100644
--- a/server.R
+++ b/server.R
@@ -688,7 +688,7 @@ shinyServer(
     })
 
     #Data table of the gene differential expression signgificance
-    output$genePeakTable <- DT::renderDataTable({
+    output$genePeakTable <- DT::renderDataTable(server = FALSE,{
       
       validate(need(!is.null(input$peakClicked), "")) # A peak must be chosen
       tissue <- input$tissue_2
@@ -710,14 +710,17 @@ shinyServer(
                     caption = "Significance for gene expression alteration",
                     selection = "single", #only one row selected at a time
                     #filter = "top", #can filter the results per column
-                    options = list(deferRender = TRUE, scrollY = 600, scroller = TRUE, scollX = T,
+                    options = list(deferRender = FALSE, scrollY = 600, scroller = TRUE, scollX = T,
                                    dom = "Bfti",
                                    buttons = list(list(extend='copy',
-                                                       filename = filename),
+                                                       filename = filename, 
+                                                       exportOptions = list(modifier = list(page = "all"))),
                                                   list(extend='csv',
-                                                       filename = filename),
+                                                       filename = filename, 
+                                                       exportOptions = list(modifier = list(page = "all"))),
                                                   list(extend='excel',
-                                                       filename= filename))),
+                                                       filename= filename, 
+                                                       exportOptions = list(modifier = list(page = "all"))))),
                     colnames = c("Gene", "p-value", "Info"),
                     rownames = T,
                     extensions = c("Scroller", "Buttons")

From 628fbb30818998fa8e0ed64b8e09d500e9079a76 Mon Sep 17 00:00:00 2001
From: ritamtbsilva <ritamtbsilva@gmail.com>
Date: Tue, 22 Oct 2024 16:45:08 +0100
Subject: [PATCH 2/2] update link to github

---
 ui.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ui.R b/ui.R
index 33555df..0efc780 100644
--- a/ui.R
+++ b/ui.R
@@ -58,7 +58,7 @@ shinyUI(fluidPage(
                                                                           font-size: 16px;
                                                                         }'))
                                                      ),
-                                                     HTML('<div class="bottom-right-text"><i class="fa fa-github"></i><a href="https://github.com/DiseaseTranscriptomicsLab/voyAGEr/tree/main" target="_blank"> Version 2.0.1 (December 2023) </a></div>')
+                                                     HTML('<div class="bottom-right-text"><i class="fa fa-github"></i><a href="https://github.com/DiseaseTranscriptomicsLab/voyAGEr/tree/main" target="_blank"> Version 2.0.2 (October 2024) </a></div>')
                                             ),
                                             tabPanel("Methodology",
                                                      icon = icon("cogs"),