From 40e2df61edaac9bed749f1b7a7bf8fb85b077e06 Mon Sep 17 00:00:00 2001 From: vertesy Date: Fri, 21 Jun 2024 17:40:02 +0200 Subject: [PATCH] nf wplot_save_pheatmap auto plotsize --- R/MarkdownReports.R | 4 ++-- man/wplot_save_pheatmap.Rd | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/R/MarkdownReports.R b/R/MarkdownReports.R index bd7f79b..96b1ae9 100644 --- a/R/MarkdownReports.R +++ b/R/MarkdownReports.R @@ -429,8 +429,8 @@ wplot_save_this <- function(plotname = ww.autoPlotName(), wplot_save_pheatmap <- function(x, suffix = "heatmap", plotname = substitute(x), - width = 15, - height = width, + width = nrow(x)+4, + height = ncols(x)+4, pdf = TRUE, png = FALSE, png_res = 100, # NA diff --git a/man/wplot_save_pheatmap.Rd b/man/wplot_save_pheatmap.Rd index ec88b50..492e3ca 100644 --- a/man/wplot_save_pheatmap.Rd +++ b/man/wplot_save_pheatmap.Rd @@ -8,8 +8,8 @@ wplot_save_pheatmap( x, suffix = "heatmap", plotname = substitute(x), - width = 15, - height = width, + width = nrow(x) + 4, + height = ncols(x) + 4, pdf = TRUE, png = FALSE, png_res = 100,