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

Rearrange user interface

Browse source
This commit is contained in:
Elias Projahn 2021-10-15 11:46:15 +02:00
parent 7b9a42215e
commit fcd9b4ee05
2 changed files with 27 additions and 32 deletions
Download patch file Download diff file Expand all files Collapse all files

10
server.R
View file

@ -86,17 +86,21 @@ server <- function(input, output) {
output$genes <- renderDT({
method_ids <- sapply(methods, function(method) method$id)
method_names <- sapply(methods, function(method) method$name)
columns <- c("rank", "gene", "name", method_ids, "score")
column_names <- c("", "Gene", "", method_names, "Score")
columns <- c("rank", "gene", "name", "chromosome", method_ids, "score")
column_names <- c("", "Gene", "", "Chromosome", method_names, "Score")
dt <- datatable(
results()[, ..columns],
rownames = FALSE,
colnames = column_names,
style = "bootstrap",
extensions = "Scroller",
options = list(
rowCallback = js_link,
columnDefs = list(list(visible = FALSE, targets = 2))
columnDefs = list(list(visible = FALSE, targets = 2)),
deferRender = TRUE,
scrollY = 200,
scroller = TRUE
)
)