From 95efb731bf50e1c5dcafbfa2410330e343512f63 Mon Sep 17 00:00:00 2001
From: Elias Projahn <elias@johrpan.de>
Date: Tue, 25 Jan 2022 16:28:59 +0100
Subject: [PATCH] preset_editor: Set default custom reference genes

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

diff --git a/R/preset_editor.R b/R/preset_editor.R
index 5500040..7c36a44 100644
--- a/R/preset_editor.R
+++ b/R/preset_editor.R
@@ -50,6 +50,10 @@ preset_editor_ui <- function(id) {
             textAreaInput(
                 inputId = NS(id, "custom_reference_genes"),
                 label = "Enter reference genes",
+                value = paste(
+                    genes[verified | suggested == TRUE, name],
+                    collapse = "\n"
+                ),
                 height = "250px"
             )
         )