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

Move species count to preset

Browse source
This commit is contained in:
Elias Projahn 2021-11-17 22:58:55 +01:00
parent 00fbdcac1f
commit a1807691d5
4 changed files with 39 additions and 42 deletions
Download patch file Download diff file Expand all files Collapse all files

13
R/server.R
View file

@ -10,15 +10,6 @@ js_link <- DT::JS("function(row, data) {
server <- function(input, output, session) {
preset <- preset_editor_server("preset_editor")
observe({
species_count <- length(preset()$species_ids)
updateSliderInput(
session,
"n_species",
max = species_count
)
})
# Compute the results according to the preset.
analysis <- reactive({
preset <- preset()
@ -37,10 +28,8 @@ server <- function(input, output, session) {
analysis
})
min_n_species <- reactive(input$n_species)
# Rank the results.
ranking <- methods_server("methods", analysis, min_n_species)
ranking <- methods_server("methods", analysis)
# Add gene information to the results.
results <- reactive({