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

Show distances in results and add filtering

Browse source
This commit is contained in:
Elias Projahn 2022-05-23 11:24:49 +02:00
parent 507f90e084
commit 17b738378a
3 changed files with 33 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

12
R/results.R
View file

@ -56,6 +56,7 @@ results_server <- function(id, filtered_results) {
"gene",
"name",
"chromosome",
"distance",
method_ids,
"score",
"percentile"
@ -66,13 +67,22 @@ results_server <- function(id, filtered_results) {
"Gene",
"",
"Chromosome",
"Distance",
method_names,
"Score",
"Percentile"
)
output_data <- reactive({
filtered_results()[, ..columns]
filtered_results()[, ..columns][,
distance := paste0(
format(
round(distance / 1000000, digits = 2),
nsmall = 2,
),
" Mbp"
)
]
})
output$download <- downloadHandler(