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

presets: Improve performance

Browse source
This commit is contained in:
Elias Projahn 2021-11-02 14:42:52 +01:00
parent 766ffa15cb
commit 69a8326fbc
1 changed files with 39 additions and 28 deletions
Download patch file Download diff file Expand all files Collapse all files

67
R/preset_editor.R
View file

@ -18,35 +18,40 @@ preset_editor_ui <- function(id) {
"Customize" = "custom"
)
),
conditionalPanel(
sprintf("input['%s'] == 'custom'", NS(id, "preset")),
shinyWidgets::pickerInput(
inputId = NS(id, "species"),
label = "Included species",
choices = species_choices,
selected = species_replicative,
options = list(
"actions-box" = TRUE,
"live-search" = TRUE
tabsetPanel(
id = NS(id, "customization"),
type = "hidden",
tabPanelBody(value = "none"),
tabPanelBody(
value = "custom",
shinyWidgets::pickerInput(
inputId = NS(id, "species"),
label = "Included species",
choices = species_choices,
selected = species_replicative,
options = list(
"actions-box" = TRUE,
"live-search" = TRUE
),
multiple = TRUE
),
multiple = TRUE
),
shinyWidgets::pickerInput(
inputId = NS(id, "reference_genes"),
label = "Reference genes",
choices = gene_choices,
selected = genes_tpe_old,
options = list(
"actions-box" = TRUE,
"live-search" = TRUE
shinyWidgets::pickerInput(
inputId = NS(id, "reference_genes"),
label = "Reference genes",
choices = gene_choices,
selected = genes_tpe_old,
options = list(
"actions-box" = TRUE,
"live-search" = TRUE
),
multiple = TRUE
),
multiple = TRUE
),
actionButton(
NS(id, "apply_button"),
"Perform analysis",
class = "btn-primary",
style = "margin-top: 16px; margin-bottom: 16px"
actionButton(
NS(id, "apply_button"),
"Perform analysis",
class = "btn-primary",
style = "margin-top: 16px; margin-bottom: 16px"
)
)
)
)
@ -62,11 +67,17 @@ preset_editor_server <- function(id) {
result <- reactiveVal(preset_replicative_species)
observeEvent(input$preset, {
if (input$preset == "replicative") {
panel <- if (input$preset == "replicative") {
result(preset_replicative_species)
"none"
} else if (input$preset == "all") {
result(preset_all_species)
"none"
} else {
"custom"
}
updateTabsetPanel(session, "customization", selected = panel)
})
observeEvent(input$apply_button, {