Merge pull request #1283 from bigomics/fix-1282

Fix #1282: Gset enrichment > FDR table error
bigomics · Nov 26, 2024 · 8f7d0d6 · 8f7d0d6
2 parents 941d0a0 + 615db47
commit 8f7d0d6
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/components/board.enrichment/R/enrichment_table_n_sig_gsets.R b/components/board.enrichment/R/enrichment_table_n_sig_gsets.R
@@ -61,7 +61,7 @@ enrichment_table_n_sig_gsets_server <- function(id,
       colnames(sig.up)[1] <- paste("UP   FDR = ", colnames(sig.up)[1])
       colnames(sig.down)[1] <- paste("DOWN   FDR = ", colnames(sig.down)[1])
       colnames(sig.down) <- paste0("  ", colnames(sig.down))
-      sigcount <- cbind(sig.down, sig.up[rownames(sig.down), ])
+      sigcount <- cbind(sig.down, sig.up[rownames(sig.down), , drop = FALSE])
       dim(sigcount)
       maxsig <- 0.99 * max(sigcount, na.rm = TRUE)