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"
)
}

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")
)
)
),