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 gene selector for custom genes

Browse source
This commit is contained in:
Elias Projahn 2022-05-30 21:27:18 +02:00
parent 780e608ee1
commit 5f5670171d
8 changed files with 168 additions and 36 deletions
Download patch file Download diff file Expand all files Collapse all files

13
R/server.R
View file

@ -17,8 +17,17 @@ server <- function(input, output) {
data
})
output$overview_plot <- plotly::renderPlotly(overview_plot(ranked_data()))
output$scores_plot <- plotly::renderPlotly(scores_plot(ranked_data()))
custom_genes <- gene_selector_server("custom_genes")
output$overview_plot <- plotly::renderPlotly(overview_plot(
ranked_data(),
highlighted_genes = custom_genes()
))
output$scores_plot <- plotly::renderPlotly(scores_plot(
ranked_data(),
highlighted_genes = custom_genes()
))
output$selected_genes <- DT::renderDataTable({
selected_points <- plotly::event_data("plotly_selected")