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

Fix details table data selection

Browse source
This commit is contained in:
Elias Projahn 2022-06-14 14:04:39 +02:00
parent 2e3521cbd9
commit e290aba9ab
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
R/server.R
View file

@ -105,10 +105,10 @@ server <- function(input, output, session) {
}) })
output$selected_genes <- DT::renderDataTable({ output$selected_genes <- DT::renderDataTable({
data <- if (length(selected_genes()) > 0) { data <- if (nrow(selected_genes()) > 0) {
ranked_data()
} else {
selected_genes() selected_genes()
} else {
ranked_data()
} }
genes_table(data) genes_table(data)