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 separate gene selector component

Browse source
This commit is contained in:
Elias Projahn 2022-01-26 14:48:29 +01:00
parent 95efb731bf
commit e61546b53c
5 changed files with 114 additions and 43 deletions
Download patch file Download diff file Expand all files Collapse all files

29
R/preset_editor.R
View file

@ -39,22 +39,9 @@ preset_editor_ui <- function(id) {
"input['%s'] == 'custom'",
NS(id, "reference_genes")
),
selectInput(
NS(id, "identifier_type"),
"Gene identifiers",
choices = list(
"HGNC symbols" = "hgnc",
"Ensembl gene IDs" = "ensembl"
)
),
textAreaInput(
inputId = NS(id, "custom_reference_genes"),
label = "Enter reference genes",
value = paste(
genes[verified | suggested == TRUE, name],
collapse = "\n"
),
height = "250px"
gene_selector_ui(
NS(id, "custom_genes"),
genes[suggested | verified == TRUE, id]
)
)
)
@ -79,19 +66,15 @@ preset_editor_server <- function(id) {
server = TRUE
)
custom_gene_ids <- gene_selector_server("custom_genes")
reactive({
reference_gene_ids <- if (input$reference_genes == "tpeold") {
genes[verified | suggested == TRUE, id]
} else if (input$reference_genes == "verified") {
genes[verified == TRUE, id]
} else {
inputs <- strsplit(input$custom_reference_genes, "\\s+")[[1]]
gene_ids <- if (input$identifier_type == "hgnc") {
geposan::genes[name %chin% inputs, id]
} else {
geposan::genes[id %chin% inputs, id]
}
custom_gene_ids()
}
species_ids <- if (input$species == "replicative") {