results: Remove scroller extension

2025-10-26 11:17:24 +01:00 · 2021-11-17 23:08:20 +01:00 · 2021-11-17 23:08:20 +01:00 · 2926bb4da0
commit 2926bb4da0
parent a1807691d5
2 changed files with 2 additions and 6 deletions
--- 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
            )
        )

--- 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(