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

15
R/filters.R
View file

@ -53,6 +53,14 @@ filters_ui <- function(id) {
tabPanelBody(
value = "none"
)
),
sliderInput(
NS(id, "distance"),
label = "Distance to telomeres",
post = " Mbp",
min = 0,
max = 150,
value = c(0, 150)
)
)
}
@ -71,7 +79,7 @@ filters_server <- function(id, results) {
reactive({
results <- results()
if (input$method == "percentile") {
results_prefiltered <- if (input$method == "percentile") {
n_ranks <- nrow(results)
results[rank <= (1 - (input$percentile / 100)) * n_ranks]
} else if (input$method == "score") {
@ -81,6 +89,11 @@ filters_server <- function(id, results) {
} else {
results
}
results_prefiltered[
distance >= 1000000 * input$distance[1] &
distance <= 1000000 * input$distance[2]
]
})
})
}