Fix call to tidyverse functions.

ddiez · Feb 7, 2024 · 7a29eb1 · 7a29eb1
1 parent 4a70392
commit 7a29eb1
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/plot.R b/R/plot.R
@@ -494,9 +494,9 @@ plot_gene_modules.Seurat <- function(x, gene_modules, reduction=NULL, assay=NULL
   else
     modules <- unique(gene_modules$module)
   p <- lapply(modules, function(module) {
-    genes <- gene_modules |> filter(.data[["module"]] == !!module) |> pull(gene)
+    genes <- gene_modules |> filter(.data[["module"]] == !!module) |> pull("gene")
     means <- colMeans(exprs[genes, ])
-    d <- cbind(coord, data.frame(score=means, module=module)) |> arrange(abs(score))
+    d <- cbind(coord, data.frame(score=means, module=module)) |> arrange(abs(.data[["score"]]))
     ggplot(d, aes(.data[[coord.cols[1]]], .data[[coord.cols[2]]], color=.data[["score"]])) +
       geom_point(size=size) +
       scale_color_gradient2(low="blue", mid="lightgrey", high="red") +