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") 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('
') + HTML('') ), tabPanel("Methodology", icon = icon("cogs"),