johrpan/geposanui
1
0
Fork 0
mirror of https://github.com/johrpan/geposanui.git synced 2025-10-26 11:17:24 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

Make custom genes default in comparison editor

Browse source
This commit is contained in:
Elias Projahn 2022-06-22 13:55:47 +02:00
parent e7cbb4ea33
commit 4378e87b2a
4 changed files with 23 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

13
R/comparison_editor.R
View file

@ -9,15 +9,14 @@ comparison_editor_ui <- function(id, options) {
NS(id, "comparison_genes"),
"Comparison genes",
choices = c(
"None",
"Your genes",
"Random genes",
names(options$gene_sets),
"Customize"
names(options$gene_sets)
)
),
conditionalPanel(
condition = sprintf(
"input['%s'] == 'Customize'",
"input['%s'] == 'Your genes'",
NS(id, "comparison_genes")
),
gene_selector_ui(NS(id, "custom_genes"))
@ -39,15 +38,13 @@ comparison_editor_server <- function(id, preset, options) {
custom_gene_ids <- gene_selector_server("custom_genes")
reactive({
if (input$comparison_genes == "None") {
NULL
} else if (input$comparison_genes == "Random genes") {
if (input$comparison_genes == "Random genes") {
preset <- preset()
gene_pool <- preset$gene_ids
reference_gene_ids <- preset$reference_gene_ids
gene_pool <- gene_pool[!gene_pool %chin% reference_gene_ids]
gene_pool[sample(length(gene_pool), length(reference_gene_ids))]
} else if (input$comparison_genes == "Customize") {
} else if (input$comparison_genes == "Your genes") {
custom_gene_ids()
} else {
options$gene_sets[[input$comparison_genes]]