From 7ba5cb7f0a8fe910f5db734bb7624ac55caea9f5 Mon Sep 17 00:00:00 2001 From: David Hugh-Jones Date: Tue, 11 Jun 2024 17:10:48 +0100 Subject: [PATCH] Stop `brk_manual()` returning breaks invisibly --- R/breaks-misc.R | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/R/breaks-misc.R b/R/breaks-misc.R index b830afe..f7c1d96 100644 --- a/R/breaks-misc.R +++ b/R/breaks-misc.R @@ -51,12 +51,13 @@ brk_manual <- function (breaks, left_vec) { length(left_vec) == length(breaks) ) - function (x, extend, left, close_end) { if (! left) warning("Ignoring `left` with `brk_manual()`") if (! close_end) warning("Ignoring `close_end` with `brk_manual()`") breaks <- create_breaks(breaks, left_vec) breaks <- extend_and_close(breaks, x, extend, left = TRUE, close_end = FALSE) + + breaks } }