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

Reindent code to use just two spaces

Browse source
This commit is contained in:
Elias Projahn 2022-05-26 12:44:09 +02:00
parent 47b8d7a1f0
commit 13b5efc1e3
10 changed files with 1000 additions and 999 deletions
Download patch file Download diff file Expand all files Collapse all files

72
R/comparison_editor.R
View file

@ -3,26 +3,26 @@
#' @param options Global application options
#' @noRd
comparison_editor_ui <- function(id, options) {
verticalLayout(
h3("Comparison"),
selectInput(
NS(id, "comparison_genes"),
"Comparison genes",
choices = c(
"None",
"Random genes",
names(options$gene_sets),
"Customize"
)
),
conditionalPanel(
condition = sprintf(
"input['%s'] == 'Customize'",
NS(id, "comparison_genes")
),
gene_selector_ui(NS(id, "custom_genes"))
)
verticalLayout(
h3("Comparison"),
selectInput(
NS(id, "comparison_genes"),
"Comparison genes",
choices = c(
"None",
"Random genes",
names(options$gene_sets),
"Customize"
)
),
conditionalPanel(
condition = sprintf(
"input['%s'] == 'Customize'",
NS(id, "comparison_genes")
),
gene_selector_ui(NS(id, "custom_genes"))
)
)
}
#' Create a server for the comparison editor.
@ -35,23 +35,23 @@ comparison_editor_ui <- function(id, options) {
#'
#' @noRd
comparison_editor_server <- function(id, preset, options) {
moduleServer(id, function(input, output, session) {
custom_gene_ids <- gene_selector_server("custom_genes")
moduleServer(id, function(input, output, session) {
custom_gene_ids <- gene_selector_server("custom_genes")
reactive({
if (input$comparison_genes == "None") {
NULL
} else 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") {
custom_gene_ids()
} else {
options$gene_sets[[input$comparison_genes]]
}
})
reactive({
if (input$comparison_genes == "None") {
NULL
} else 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") {
custom_gene_ids()
} else {
options$gene_sets[[input$comparison_genes]]
}
})
})
}