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

Allow filtering by rank

Browse source
This commit is contained in:
Elias Projahn 2021-11-02 13:41:03 +01:00
parent 667eb8f2a3
commit b57297dfdf
4 changed files with 107 additions and 32 deletions
Download patch file Download diff file Expand all files Collapse all files

27
R/server.R
View file

@ -9,18 +9,7 @@ js_link <- DT::JS("function(row, data) {
server <- function(input, output, session) {
preset <- preset_editor_server("preset_editor")
# Show the customized slider for setting the required number of species.
output$n_species_slider <- renderUI({
sliderInput(
"n_species",
"Required number of species per gene",
min = 0,
max = length(preset()$species_ids),
step = 1,
value = 10
)
})
filters <- filters_server("filters", preset)
# Compute the results according to the preset.
analysis <- reactive({
@ -54,15 +43,21 @@ server <- function(input, output, session) {
setkey(genes_n_species, gene)
# Exclude genes with too few species.
results[genes_n_species[gene, n_species] >= input$n_species]
results[genes_n_species[gene, n_species] >= filters()$n_species]
})
# Rank the results.
results <- methods_server("methods", analysis)
# Apply the cut-off score to the ranked results.
# Apply the filters.
results_filtered <- reactive({
results()[score >= input$cutoff / 100]
filters <- filters()
if (filters$filter == "score") {
results()[score >= filters$cut_off_score / 100]
} else {
results()[rank <= filters$max_rank]
}
})
output$genes <- DT::renderDT({
@ -168,7 +163,7 @@ server <- function(input, output, session) {
rank_plot(
results(),
preset()$reference_gene_ids,
input$cutoff / 100
results_filtered()[, max(rank)]
)
})