johrpan/geposanui
1
0
Fork 0
mirror of https://github.com/johrpan/geposanui.git synced 2025-10-26 11:17:24 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

results: Remove scroller extension

Browse source
This commit is contained in:
Elias Projahn 2021-11-17 23:08:20 +01:00
parent a1807691d5
commit 2926bb4da0
2 changed files with 2 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

6
R/server.R
View file

@ -54,14 +54,10 @@ server <- function(input, output, session) {
rownames = FALSE, rownames = FALSE,
colnames = column_names, colnames = column_names,
style = "bootstrap", style = "bootstrap",
fillContainer = TRUE,
extensions = "Scroller",
options = list( options = list(
rowCallback = js_link, rowCallback = js_link,
columnDefs = list(list(visible = FALSE, targets = 2)), columnDefs = list(list(visible = FALSE, targets = 2)),
deferRender = TRUE, pageLength = 25
scrollY = 200,
scroller = TRUE
) )
) )

2
R/ui.R
View file

@ -18,7 +18,7 @@ ui <- fluidPage(
uiOutput("copy"), uiOutput("copy"),
div( div(
style = "margin-top: 16px", style = "margin-top: 16px",
DT::DTOutput("genes", height = "1000px") DT::DTOutput("genes")
) )
), ),
tabPanel( tabPanel(