From f08c3a8421de53d3af7dea79d274e3a7cf38d8a7 Mon Sep 17 00:00:00 2001
From: Elias Projahn <elias@johrpan.de>
Date: Tue, 23 Nov 2021 16:51:55 +0100
Subject: [PATCH] preset editor: Select all species by default

---
 R/preset_editor.R | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/R/preset_editor.R b/R/preset_editor.R
index b3dd565..1b51971 100644
--- a/R/preset_editor.R
+++ b/R/preset_editor.R
@@ -13,8 +13,8 @@ preset_editor_ui <- function(id) {
             NS(id, "species"),
             "Species to include",
             choices = list(
-                "Replicatively aging species" = "replicative",
                 "All species" = "all",
+                "Known replicatively aging species" = "replicative",
                 "Customize" = "custom"
             )
         ),
@@ -97,7 +97,7 @@ preset_editor_server <- function(id) {
     moduleServer(id, function(input, output, session) {
         current_preset <- reactiveVal(geposan::preset(
             methods = method_ids,
-            species_ids = species[replicative == TRUE, id],
+            species_ids = species$id,
             gene_ids = genes$id,
             reference_gene_ids = genes[suggested | verified == TRUE, id],
             optimization_target = "mean"