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

17
R/preset_editor.R
View file

@ -18,8 +18,12 @@ preset_editor_ui <- function(id) {
"Customize" = "custom"
)
),
conditionalPanel(
sprintf("input['%s'] == 'custom'", NS(id, "preset")),
tabsetPanel(
id = NS(id, "customization"),
type = "hidden",
tabPanelBody(value = "none"),
tabPanelBody(
value = "custom",
shinyWidgets::pickerInput(
inputId = NS(id, "species"),
label = "Included species",
@ -50,6 +54,7 @@ preset_editor_ui <- function(id) {
)
)
)
)
}
# Create a server for the preset editor.
@ -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, {