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

43
R/ui.R
View file

@ -55,32 +55,33 @@ 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")
),
tabPanel(
"Top genes",
value = "top_genes",
div(paste0(
"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"),
div(paste0(
"Click on gene names to view them using the Ensembl genome ",
"browser."
)),
div(class = "p-1"),
DT::dataTableOutput("selected_genes")
)
),
h3("Focus on top genes"),
div(paste0(
"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."
)),
div(class = "p-1"),
DT::dataTableOutput("selected_genes")
)
)
)
),