diff --git a/R/server.R b/R/server.R index 4896842..00600c3 100644 --- a/R/server.R +++ b/R/server.R @@ -76,6 +76,10 @@ server <- function(input, output, session) { box_plot(ranked_data(), custom_genes()) ) + output$custom_genes_details <- DT::renderDT({ + genes_table(ranked_data()[gene %chin% custom_genes()]) + }) + output$scores_plot <- plotly::renderPlotly(scores_plot( ranked_data(), highlighted_genes = custom_genes() diff --git a/R/ui.R b/R/ui.R index 56bb791..2d1e671 100644 --- a/R/ui.R +++ b/R/ui.R @@ -75,7 +75,9 @@ ui <- function() { "Your genes", value = "custom_genes", htmlOutput("custom_genes_synopsis"), - plotly::plotlyOutput("custom_genes_boxplot") + plotly::plotlyOutput("custom_genes_boxplot"), + div(class = "p-1"), + DT::dataTableOutput("custom_genes_details") ), tabPanel( "Top genes",