Merge pull request #1277 from bigomics/fix-expression-plot

fix: use correct pgx
bigomics · Nov 25, 2024 · 2ce3b35 · 2ce3b35
2 parents 7fbe3df + efc799c
commit 2ce3b35
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/components/board.compare/R/compare_plot_expression.R b/components/board.compare/R/compare_plot_expression.R
@@ -70,7 +70,7 @@ compare_plot_expression_server <- function(id,
       xgenes <- intersect(rownames(X1), rownames(X2))
       sel.genes <- head(intersect(sel.genes, xgenes), 8)
       e1 <- playbase::pgx.getContrastMatrix(pgx1)[, ct1, drop = FALSE]
-      e2 <- playbase::pgx.getContrastMatrix(pgx1)[, ct2, drop = FALSE]
+      e2 <- playbase::pgx.getContrastMatrix(pgx2)[, ct2, drop = FALSE]
 
       # Build plots
       sub_plots <- vector("list", length(sel.genes))