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

Add basic filters to the UI

Browse source
This commit is contained in:
Elias Projahn 2021-08-26 11:20:50 +02:00
parent d3151957a3
commit 1c43433600
2 changed files with 26 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

17
server.R
View file

@ -9,16 +9,21 @@ source("util.R")
data <- run_cached("input", load_input, "input")
results <- run_cached("results", process_input, data)
merged <- merge(results, data$genes, by.x = "gene", by.y = "id")
setorder(merged, -cluster_length)
server <- function(input, output) {
filtered <- results[cluster_length >= 10]
merged <- merge.data.table(filtered, data$genes, by.x = "gene", by.y = "id")
setorder(merged, -cluster_length)
filtered <- reactive({
merged[
cluster_length >= input$length &
cluster_mean >= input$range[1] * 1000000 &
cluster_mean <= input$range[2] * 1000000
]
})
output$genes <- renderDT({
datatable(
merged[, .(.I, name, chromosome, cluster_length, cluster_mean)],
rownames = FALSE,
filtered()[, .(.I, name, chromosome, cluster_length, cluster_mean)],
colnames = c(
"Rank",
"Gene",
@ -31,7 +36,7 @@ server <- function(input, output) {
})
output$scatter <- renderPlot({
gene_ids <- merged[input$genes_rows_selected, gene]
gene_ids <- filtered()[input$genes_rows_selected, gene]
scatter_plot(gene_ids, data)
})
}