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

server: Show percentiles in results table

Browse source
This commit is contained in:
Elias Projahn 2021-12-30 11:54:39 +01:00
parent 471f2773aa
commit b6e9179f13
1 changed files with 24 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

27
R/server.R
View file

@ -48,8 +48,25 @@ server <- function(input, output, session) {
comparison_gene_ids <- comparison_editor_server("comparison_editor", preset) comparison_gene_ids <- comparison_editor_server("comparison_editor", preset)
output$genes <- DT::renderDT({ output$genes <- DT::renderDT({
columns <- c("rank", "gene", "name", "chromosome", method_ids, "score") columns <- c(
column_names <- c("", "Gene", "", "Chromosome", method_names, "Score") "rank",
"gene",
"name",
"chromosome",
method_ids,
"score",
"percentile"
)
column_names <- c(
"",
"Gene",
"",
"Chromosome",
method_names,
"Score",
"Percentile"
)
dt <- DT::datatable( dt <- DT::datatable(
results_filtered()[, ..columns], results_filtered()[, ..columns],
@ -63,7 +80,11 @@ server <- function(input, output, session) {
) )
) )
DT::formatPercentage(dt, c(method_ids, "score"), digits = 1) DT::formatPercentage(
dt,
c(method_ids, "score", "percentile"),
digits = 2
)
}) })
output$copy <- renderUI({ output$copy <- renderUI({