From f9ef06162468ff7ad02fcf13d5d451972e8c66e8 Mon Sep 17 00:00:00 2001 From: Louis Date: Thu, 2 Apr 2026 15:41:05 +0200 Subject: [PATCH] Fix deprecated functions and arguments for ggplot2 --- R/utils_plot.R | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/R/utils_plot.R b/R/utils_plot.R index 74cda01..9d4fbd0 100644 --- a/R/utils_plot.R +++ b/R/utils_plot.R @@ -115,8 +115,8 @@ plotMatrix = function(Mat, dimLabels, clustering = NULL, plotOptions = list()){ if (!is.null(clustering)) { - g <- g + geom_vline(data = sepCol,mapping = aes_string(xintercept = 'sep'),size = currentOptions$line.width, col=currentOptions$line.color) - g <- g + geom_hline(data = sepRow + 1,mapping = aes_string(yintercept = 'sep'),size = currentOptions$line.width, col=currentOptions$line.color) + g <- g + geom_vline(data = sepCol, mapping = aes(xintercept = .data[["sep"]]), linewidth = currentOptions$line.width, col = currentOptions$line.color) + g <- g + geom_hline(data = sepRow + 1, mapping = aes(yintercept = .data[["sep"]]), linewidth = currentOptions$line.width, col = currentOptions$line.color) } if (!is.null(currentOptions$title)){g <- g + ggtitle(currentOptions$title) } g