From 9709360d45bdb3ab6ce0b21f2e64168fa0ccdfa4 Mon Sep 17 00:00:00 2001
From: Elias Projahn <elias@johrpan.de>
Date: Tue, 2 Nov 2021 15:07:04 +0100
Subject: [PATCH] Improve species slider performance

---
 R/server.R | 12 +++++-------
 R/ui.R     |  9 ++++++++-
 2 files changed, 13 insertions(+), 8 deletions(-)

diff --git a/R/server.R b/R/server.R
index 30302ef..081b4f0 100644
--- a/R/server.R
+++ b/R/server.R
@@ -10,14 +10,12 @@ js_link <- DT::JS("function(row, data) {
 server <- function(input, output, session) {
     preset <- preset_editor_server("preset_editor")
 
-    output$n_species_slider <- renderUI({
-        sliderInput(
+    observe({
+        species_count <- length(preset()$species_ids)
+        updateSliderInput(
+            session,
             "n_species",
-            "Required number of species per gene",
-            min = 0,
-            max = length(preset()$species_ids),
-            step = 1,
-            value = 10
+            max = species_count
         )
     })
 
diff --git a/R/ui.R b/R/ui.R
index e627705..95f6d39 100644
--- a/R/ui.R
+++ b/R/ui.R
@@ -6,7 +6,14 @@ ui <- fluidPage(
         sidebarPanel(
             width = 3,
             preset_editor_ui("preset_editor"),
-            uiOutput("n_species_slider"),
+            sliderInput(
+                "n_species",
+                "Required number of species per gene",
+                min = 0,
+                max = 18,
+                step = 1,
+                value = 10
+            ),
             filters_ui("filters"),
             methods_ui("methods")
         ),