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

Reindent code to use just two spaces

Browse source
This commit is contained in:
Elias Projahn 2022-05-26 12:44:09 +02:00
parent 47b8d7a1f0
commit 13b5efc1e3
10 changed files with 1000 additions and 999 deletions
Download patch file Download diff file Expand all files Collapse all files

168
R/filters.R
View file

@ -1,68 +1,68 @@
# Construct UI for the filter editor.
filters_ui <- function(id) {
verticalLayout(
h3("Filter criteria"),
selectInput(
NS(id, "method"),
"Filter method",
choices = list(
"Percentile" = "percentile",
"Cut-off score" = "score",
"Maximum number of genes" = "rank",
"None" = "none"
)
),
tabsetPanel(
id = NS(id, "sliders"),
type = "hidden",
tabPanelBody(
value = "percentile",
sliderInput(
NS(id, "percentile"),
label = "Minimum percentile",
post = "%",
min = 0,
max = 100,
step = 1,
value = 95
)
),
tabPanelBody(
value = "score",
sliderInput(
NS(id, "score"),
label = "Cut-off score",
post = "%",
min = 0,
max = 100,
step = 1,
value = 75
)
),
tabPanelBody(
value = "rank",
sliderInput(
NS(id, "rank"),
label = "Maximum rank",
min = 0,
max = 2000,
step = 10,
value = 1000
)
),
tabPanelBody(
value = "none"
)
),
verticalLayout(
h3("Filter criteria"),
selectInput(
NS(id, "method"),
"Filter method",
choices = list(
"Percentile" = "percentile",
"Cut-off score" = "score",
"Maximum number of genes" = "rank",
"None" = "none"
)
),
tabsetPanel(
id = NS(id, "sliders"),
type = "hidden",
tabPanelBody(
value = "percentile",
sliderInput(
NS(id, "distance"),
label = "Distance to telomeres",
post = " Mbp",
min = 0,
max = 150,
value = c(0, 150)
NS(id, "percentile"),
label = "Minimum percentile",
post = "%",
min = 0,
max = 100,
step = 1,
value = 95
)
),
tabPanelBody(
value = "score",
sliderInput(
NS(id, "score"),
label = "Cut-off score",
post = "%",
min = 0,
max = 100,
step = 1,
value = 75
)
),
tabPanelBody(
value = "rank",
sliderInput(
NS(id, "rank"),
label = "Maximum rank",
min = 0,
max = 2000,
step = 10,
value = 1000
)
),
tabPanelBody(
value = "none"
)
),
sliderInput(
NS(id, "distance"),
label = "Distance to telomeres",
post = " Mbp",
min = 0,
max = 150,
value = c(0, 150)
)
)
}
# Construct server for the filter editor.
@ -71,29 +71,29 @@ filters_ui <- function(id) {
#
# @return A reactive containing the filtered results.
filters_server <- function(id, results) {
moduleServer(id, function(input, output, session) {
observeEvent(input$method, {
updateTabsetPanel(session, "sliders", selected = input$method)
})
reactive({
results <- results()
results_prefiltered <- if (input$method == "percentile") {
n_ranks <- nrow(results)
results[rank <= (1 - (input$percentile / 100)) * n_ranks]
} else if (input$method == "score") {
results[score >= input$score / 100]
} else if (input$method == "rank") {
results[rank <= input$rank]
} else {
results
}
results_prefiltered[
distance >= 1000000 * input$distance[1] &
distance <= 1000000 * input$distance[2]
]
})
moduleServer(id, function(input, output, session) {
observeEvent(input$method, {
updateTabsetPanel(session, "sliders", selected = input$method)
})
reactive({
results <- results()
results_prefiltered <- if (input$method == "percentile") {
n_ranks <- nrow(results)
results[rank <= (1 - (input$percentile / 100)) * n_ranks]
} else if (input$method == "score") {
results[score >= input$score / 100]
} else if (input$method == "rank") {
results[rank <= input$rank]
} else {
results
}
results_prefiltered[
distance >= 1000000 * input$distance[1] &
distance <= 1000000 * input$distance[2]
]
})
})
}