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

6
R/gene_selector.R
View file

@ -29,7 +29,7 @@ gene_selector_ui <- function(id, default_gene_ids = NULL) {
"list",
shinyWidgets::virtualSelectInput(
NS(id, "selected_genes"),
label = "Select genes",
label = NULL,
choices = gene_choices,
multiple = TRUE,
search = TRUE,
@ -40,7 +40,7 @@ gene_selector_ui <- function(id, default_gene_ids = NULL) {
"hgnc",
textAreaInput(
NS(id, "hgnc_names_raw"),
"Enter HGNC symbols",
label = NULL,
value = paste(
geposan::genes[
id %chin% default_gene_ids & name != "",
@ -55,7 +55,7 @@ gene_selector_ui <- function(id, default_gene_ids = NULL) {
"ensembl",
textAreaInput(
NS(id, "gene_ids_raw"),
"Enter Ensembl gene IDs",
label = NULL,
value = paste(default_gene_ids, collapse = "\n"),
height = "250px"
)