From 2926bb4da0f61409ed5459b30532c25feddca117 Mon Sep 17 00:00:00 2001
From: Elias Projahn <elias@johrpan.de>
Date: Wed, 17 Nov 2021 23:08:20 +0100
Subject: [PATCH] results: Remove scroller extension

---
 R/server.R | 6 +-----
 R/ui.R     | 2 +-
 2 files changed, 2 insertions(+), 6 deletions(-)

diff --git a/R/server.R b/R/server.R
index 6f0bb70..5931a7d 100644
--- a/R/server.R
+++ b/R/server.R
@@ -54,14 +54,10 @@ server <- function(input, output, session) {
             rownames = FALSE,
             colnames = column_names,
             style = "bootstrap",
-            fillContainer = TRUE,
-            extensions = "Scroller",
             options = list(
                 rowCallback = js_link,
                 columnDefs = list(list(visible = FALSE, targets = 2)),
-                deferRender = TRUE,
-                scrollY = 200,
-                scroller = TRUE
+                pageLength = 25
             )
         )
 
diff --git a/R/ui.R b/R/ui.R
index 891a79d..64a588e 100644
--- a/R/ui.R
+++ b/R/ui.R
@@ -18,7 +18,7 @@ ui <- fluidPage(
                     uiOutput("copy"),
                     div(
                         style = "margin-top: 16px",
-                        DT::DTOutput("genes", height = "1000px")
+                        DT::DTOutput("genes")
                     )
                 ),
                 tabPanel(