From fa35346e17753074503faa7b1efc4e1c216b9d77 Mon Sep 17 00:00:00 2001 From: simonpcouch Date: Mon, 15 Jul 2024 13:05:37 -0500 Subject: [PATCH] apply analogous `breaks` change to time --- R/time.R | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/R/time.R b/R/time.R index 9159edb..938d7c9 100644 --- a/R/time.R +++ b/R/time.R @@ -210,7 +210,7 @@ bench_time_trans <- function(base = 10) { if (is.null(base)) { return( scales::trans_new("bch:tm", as.numeric, as_bench_time, - scales::pretty_breaks(), domain = c(1e-100, Inf) + breaks = scales::pretty_breaks(), domain = c(1e-100, Inf) ) ) } @@ -219,7 +219,7 @@ bench_time_trans <- function(base = 10) { inv <- function(x) as_bench_time(base ^ as.numeric(x)) scales::trans_new(paste0("bch:tm-", format(base)), trans, inv, - scales::log_breaks(base = base), domain = c(1e-100, Inf)) + breaks = scales::log_breaks(base = base), domain = c(1e-100, Inf)) } scale_type.bench_time <- function(x) "bench_time"