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

Add custom genes details table

Browse source
This commit is contained in:
Elias Projahn 2022-06-22 12:39:26 +02:00
parent 989655307b
commit 27f66d7f35
2 changed files with 7 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
R/server.R
View file

@ -76,6 +76,10 @@ server <- function(input, output, session) {
box_plot(ranked_data(), custom_genes()) 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( output$scores_plot <- plotly::renderPlotly(scores_plot(
ranked_data(), ranked_data(),
highlighted_genes = custom_genes() highlighted_genes = custom_genes()

4
R/ui.R
View file

@ -75,7 +75,9 @@ ui <- function() {
"Your genes", "Your genes",
value = "custom_genes", value = "custom_genes",
htmlOutput("custom_genes_synopsis"), htmlOutput("custom_genes_synopsis"),
plotly::plotlyOutput("custom_genes_boxplot") plotly::plotlyOutput("custom_genes_boxplot"),
div(class = "p-1"),
DT::dataTableOutput("custom_genes_details")
), ),
tabPanel( tabPanel(
"Top genes", "Top genes",