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

Switch to the results page when the preset changes

Browse source
This commit is contained in:
Elias Projahn 2022-01-25 16:27:18 +01:00
parent 2faaeb869a
commit 2ced93aa94
2 changed files with 9 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

8
R/server.R
View file

@ -12,6 +12,14 @@ server <- function(input, output, session) {
preset <- input_reactives$preset preset <- input_reactives$preset
comparison_gene_ids <- input_reactives$comparison_gene_ids comparison_gene_ids <- input_reactives$comparison_gene_ids
observe({
updateNavbarPage(
session,
"main_page",
selected = "Results"
)
}) |> bindEvent(preset(), ignoreInit = TRUE)
# Compute the results according to the preset. # Compute the results according to the preset.
analysis <- reactive({ analysis <- reactive({
preset <- preset() preset <- preset()

1
R/ui.R
View file

@ -2,6 +2,7 @@ ui <- div(
shinyjs::useShinyjs(), shinyjs::useShinyjs(),
rclipboard::rclipboardSetup(), rclipboard::rclipboardSetup(),
navbarPage( navbarPage(
id = "main_page",
theme = bslib::bs_theme( theme = bslib::bs_theme(
version = 5, version = 5,
bootswatch = "united", bootswatch = "united",