From f1c561daaf979512a79acef96b1746b67619b02e Mon Sep 17 00:00:00 2001 From: mtennekes Date: Fri, 13 Oct 2023 11:37:38 +0200 Subject: [PATCH] working on #795 --- R/step4_plot.R | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/R/step4_plot.R b/R/step4_plot.R index ec01767d..f74a89e7 100644 --- a/R/step4_plot.R +++ b/R/step4_plot.R @@ -617,10 +617,10 @@ step4_plot = function(tm, vp, return.asp, show) { # plot grid labels if (o$grid.show && !o$grid.labels.inside.frame) { - if ((o$grid.labels.pos[1] == "left" && d$col[i] == 1) || (o$grid.labels.pos[1] == "right" && d$col[i] == o$ncols)) { + if (o$grid.labels.show[2] && ((o$grid.labels.pos[1] == "left" && d$col[i] == 1) || (o$grid.labels.pos[1] == "right" && d$col[i] == o$ncols))) { do.call(FUNgridylab, list(bi = d$bi[i], bbx = bbx, facet_row = d$row[i], facet_col = d$col[i], facet_page = d$page[i], o = o)) } - if ((o$grid.labels.pos[2] == "top" && d$row[i] == 1) || (o$grid.labels.pos[2] == "bottom" && d$row[i] == o$nrows)) { + if (o$grid.labels.show[1] && ((o$grid.labels.pos[2] == "top" && d$row[i] == 1) || (o$grid.labels.pos[2] == "bottom" && d$row[i] == o$nrows))) { do.call(FUNgridxlab, list(bi = d$bi[i], bbx = bbx, facet_row = d$row[i], facet_col = d$col[i], facet_page = d$page[i], o = o)) } }