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

Add options to configure default gene sets

Browse source
This commit is contained in:
Elias Projahn 2022-05-19 16:24:23 +02:00
parent 22f5e86625
commit 74d7865389
9 changed files with 391 additions and 370 deletions
Download patch file Download diff file Expand all files Collapse all files

7
R/gene_selector.R
View file

@ -7,7 +7,7 @@
#'
#' @noRd
gene_selector_ui <- function(id, default_gene_ids = NULL) {
named_genes <- genes[name != ""]
named_genes <- geposan::genes[name != ""]
named_genes <- unique(named_genes, by = "name")
gene_choices <- named_genes$id
names(gene_choices) <- named_genes$name
@ -42,7 +42,10 @@ gene_selector_ui <- function(id, default_gene_ids = NULL) {
NS(id, "hgnc_names_raw"),
"Enter HGNC symbols",
value = paste(
genes[id %chin% default_gene_ids & name != "", name],
geposan::genes[
id %chin% default_gene_ids & name != "",
name
],
collapse = "\n"
),
height = "250px"