johrpan/geposanui
1
0
Fork 0
mirror of https://github.com/johrpan/geposanui.git synced 2025-10-26 11:17:24 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

results: Move to separate module

Browse source
This commit is contained in:
Elias Projahn 2021-12-30 12:19:00 +01:00
parent b6e9179f13
commit 7834360e2a
3 changed files with 94 additions and 74 deletions
Download patch file Download diff file Expand all files Collapse all files

69
R/server.R
View file

@ -45,74 +45,11 @@ server <- function(input, output, session) {
# Apply the filters.
results_filtered <- filters_server("filters", results)
# Server for the detailed results panel.
results_server("results", results_filtered)
comparison_gene_ids <- comparison_editor_server("comparison_editor", preset)
output$genes <- DT::renderDT({
columns <- c(
"rank",
"gene",
"name",
"chromosome",
method_ids,
"score",
"percentile"
)
column_names <- c(
"",
"Gene",
"",
"Chromosome",
method_names,
"Score",
"Percentile"
)
dt <- DT::datatable(
results_filtered()[, ..columns],
rownames = FALSE,
colnames = column_names,
style = "bootstrap",
options = list(
rowCallback = js_link,
columnDefs = list(list(visible = FALSE, targets = 2)),
pageLength = 25
)
)
DT::formatPercentage(
dt,
c(method_ids, "score", "percentile"),
digits = 2
)
})
output$copy <- renderUI({
results <- results_filtered()
gene_ids <- results[, gene]
names <- results[name != "", name]
genes_text <- paste(gene_ids, collapse = "\n")
names_text <- paste(names, collapse = "\n")
splitLayout(
cellWidths = "auto",
rclipboard::rclipButton(
"copy_ids_button",
"Copy gene IDs",
genes_text,
icon = icon("clipboard")
),
rclipboard::rclipButton(
"copy_names_button",
"Copy gene names",
names_text,
icon = icon("clipboard")
)
)
})
output$scatter <- plotly::renderPlotly({
preset <- preset()
gene_sets <- list("Reference genes" = preset$reference_gene_ids)