diff --git a/R/preset_editor.R b/R/preset_editor.R
index dded591..72f2059 100644
--- a/R/preset_editor.R
+++ b/R/preset_editor.R
@@ -35,14 +35,6 @@ preset_editor_ui <- function(id) {
                 )
             )
         ),
-        sliderInput(
-            NS(id, "n_species"),
-            "Required number of species per gene",
-            min = 0,
-            max = 18,
-            step = 1,
-            value = 10
-        ),
         selectInput(
             NS(id, "reference_genes"),
             "Reference genes",
@@ -97,7 +89,6 @@ preset_editor_server <- function(id) {
             methods = method_ids,
             species_ids = species[replicative == TRUE, id],
             gene_ids = genes$id,
-            min_n_species = 10,
             reference_gene_ids = genes[suggested | verified == TRUE, id]
         ))
 
@@ -117,24 +108,6 @@ preset_editor_server <- function(id) {
             }
         })
 
-        species_ids <- reactive({
-            if (input$species == "replicative") {
-                species[replicative == TRUE, id]
-            } else if (input$species == "all") {
-                species$id
-            } else {
-                input$custom_species
-            }
-        })
-
-        observeEvent(species_ids(), {
-            updateSliderInput(
-                session,
-                "n_species",
-                max = length(species_ids())
-            )
-        })
-
         observeEvent(input$reference_genes, {
             if (input$reference_genes == "custom") {
                 updateTabsetPanel(
@@ -152,6 +125,14 @@ preset_editor_server <- function(id) {
         })
 
         new_preset <- reactive({
+            species_ids <- if (input$species == "replicative") {
+                species[replicative == TRUE, id]
+            } else if (input$species == "all") {
+                species$id
+            } else {
+                input$custom_species
+            }
+
             reference_gene_ids <- if (input$reference_genes == "tpeold") {
                 genes[verified | suggested == TRUE, id]
             } else if (input$reference_genes == "verified") {
@@ -162,9 +143,8 @@ preset_editor_server <- function(id) {
 
             geposan::preset(
                 methods = method_ids,
-                species_ids = species_ids(),
+                species_ids = species_ids,
                 gene_ids = genes$id,
-                min_n_species = input$n_species,
                 reference_gene_ids = reference_gene_ids
             )
         })