feat: specify library

this was already merged for plotly, missed to fix it for ggplot as well
bigomics · Oct 14, 2024 · 07d65e3 · 07d65e3
1 parent de24836
commit 07d65e3
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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)
       }