Move ranking table and support selection

This commit is contained in:
Elias Projahn 2022-05-12 12:49:16 +02:00
parent 268bfd6415
commit c9b26cc823
2 changed files with 24 additions and 13 deletions

20
R/ui.R
View file

@ -41,17 +41,15 @@ ui <- function() {
),
mainPanel(
width = 9,
tabsetPanel(
type = "pills",
tabPanel(
title = "Distribution of scores",
plotly::plotlyOutput("scores_plot")
),
tabPanel(
title = "Detailed results",
DT::dataTableOutput("ranked_data")
)
)
h3("Distribution of scores"),
div(paste0(
"Note: Click or drag within the figure to select ",
"genes of interest."
)),
plotly::plotlyOutput("scores_plot"),
h3("Detailed ranking"),
div(class = "p-1"),
DT::dataTableOutput("selected_genes")
)
)
),