Merge pull request #9 from DiseaseTranscriptomicsLab/dev

Merge dev

Author: A-Kaizeler-A

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")

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"),