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(