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

29
R/ui.R
View file

@ -55,34 +55,35 @@ ui <- function() {
),
mainPanel(
width = 9,
h3("Overview"),
plotly::plotlyOutput("overview_plot", height = "200px"),
tabsetPanel(
id = "custom_genes_panel",
type = "hidden",
tabPanelBody("hide"),
tabPanelBody(
"show",
h3("Your genes"),
id = "results_panel",
selected = "top_genes",
header = div(class = "p-2"),
tabPanel(
"Your genes",
value = "custom_genes",
htmlOutput("custom_genes_synopsis"),
plotly::plotlyOutput("custom_genes_boxplot")
)
),
h3("Focus on top genes"),
tabPanel(
"Top genes",
value = "top_genes",
div(paste0(
"Click or drag within the figure to select genes of ",
"interest."
"Hover over the markers to see details on each gene. Click or ",
"drag within the figure to select genes of interest."
)),
plotly::plotlyOutput("scores_plot"),
h3("Detailed ranking"),
div(paste0(
"Click on gene names to view them using the Ensembl ",
"genome browser."
"Click on gene names to view them using the Ensembl genome ",
"browser."
)),
div(class = "p-1"),
DT::dataTableOutput("selected_genes")
)
)
)
)
),
tabPanel(
title = "Help"