johrpan/ubigen
1
0
Fork 0
mirror of https://github.com/johrpan/ubigen.git synced 2025-10-26 19:57:24 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

Structure results using tabs

Browse source
This commit is contained in:
Elias Projahn 2022-06-02 09:14:34 +02:00
parent 7f69b26a49
commit 6fb91e0eff
2 changed files with 25 additions and 24 deletions
Download patch file Download diff file Expand all files Collapse all files

6
R/server.R
View file

@ -30,9 +30,9 @@ server <- function(input, output, session) {
observeEvent(custom_genes(),
{ # nolint
if (length(custom_genes()) > 0) {
updateTabsetPanel(session, "custom_genes_panel", selected = "show")
} else {
updateTabsetPanel(session, "custom_genes_panel", selected = "hide")
updateTabsetPanel(session, "results_panel", selected = "custom_genes")
} else if (input$results_panel == "custom_genes") {
updateTabsetPanel(session, "results_panel", selected = "top_genes")
}
},
ignoreNULL = FALSE