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" ) )