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

Move ranking table and support selection

Browse source
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
Download patch file Download diff file Expand all files Collapse all files

17
R/server.R
View file

@ -22,7 +22,18 @@ server <- function(input, output) {
})
output$scores_plot <- plotly::renderPlotly(scores_plot(ranked_data()))
output$ranked_data <- DT::renderDataTable(genes_table(ranked_data()))
output$selected_genes <- DT::renderDataTable({
selected_points <- plotly::event_data("plotly_selected")
data <- if (is.null(selected_points)) {
ranked_data()
} else {
ranked_data()[rank %in% selected_points$x]
}
genes_table(data)
})
}
#' Create plot showing the distribution of scores using `plotly`.
@ -63,7 +74,9 @@ scores_plot <- function(ranked_data, ranks = 1000) {
) |>
plotly::layout(
xaxis = list(title = ranks_label),
yaxis = list(title = "Score")
yaxis = list(title = "Score"),
clickmode = "event+select",
dragmode = "select"
)
}