johrpan/geposanui
1
0
Fork 0
mirror of https://github.com/johrpan/geposanui.git synced 2025-10-26 19:27: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

17
R/preset_editor.R
View file

@ -18,8 +18,12 @@ preset_editor_ui <- function(id) {
"Customize" = "custom" "Customize" = "custom"
) )
), ),
conditionalPanel( tabsetPanel(
sprintf("input['%s'] == 'custom'", NS(id, "preset")), id = NS(id, "customization"),
type = "hidden",
tabPanelBody(value = "none"),
tabPanelBody(
value = "custom",
shinyWidgets::pickerInput( shinyWidgets::pickerInput(
inputId = NS(id, "species"), inputId = NS(id, "species"),
label = "Included species", label = "Included species",
@ -50,6 +54,7 @@ preset_editor_ui <- function(id) {
) )
) )
) )
)
} }
# Create a server for the preset editor. # Create a server for the preset editor.
@ -62,11 +67,17 @@ preset_editor_server <- function(id) {
result <- reactiveVal(preset_replicative_species) result <- reactiveVal(preset_replicative_species)
observeEvent(input$preset, { observeEvent(input$preset, {
if (input$preset == "replicative") { panel <- if (input$preset == "replicative") {
result(preset_replicative_species) result(preset_replicative_species)
"none"
} else if (input$preset == "all") { } else if (input$preset == "all") {
result(preset_all_species) result(preset_all_species)
"none"
} else {
"custom"
} }
updateTabsetPanel(session, "customization", selected = panel)
}) })
observeEvent(input$apply_button, { observeEvent(input$apply_button, {