From 07d65e3ab5ee3d66bd03a8fb5853d6a63a814d47 Mon Sep 17 00:00:00 2001 From: ESCRI11 Date: Mon, 14 Oct 2024 13:58:36 +0200 Subject: [PATCH] feat: specify library this was already merged for plotly, missed to fix it for ggplot as well --- components/board.signature/R/signature_plot_volcano.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/components/board.signature/R/signature_plot_volcano.R b/components/board.signature/R/signature_plot_volcano.R index b58432b82..ea8bcfec5 100644 --- a/components/board.signature/R/signature_plot_volcano.R +++ b/components/board.signature/R/signature_plot_volcano.R @@ -234,7 +234,7 @@ signature_plot_volcano_server <- function(id, if (showlabel == "no") label <- NULL if (showlabel == "top10") { ii <- match(label, pd[["features"]]) - rr <- rowMeans(pd$fc[ii, ]**2) + rowMeans(log10(pd$qv[ii, ])**2) + rr <- Matrix::rowMeans(pd$fc[ii, , drop = FALSE]**2) + Matrix::rowMeans(log10(pd$qv[ii, , drop = FALSE])**2) label <- head(label[order(-rr)], 10) }