From 03fe13ab3bee19cbcbb45edd3c4601352bf729d7 Mon Sep 17 00:00:00 2001 From: Richard Iannone Date: Fri, 1 Dec 2023 17:42:02 -0500 Subject: [PATCH] Use specialized check of integer-likeness --- R/utils_plots.R | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/R/utils_plots.R b/R/utils_plots.R index 1d63002037..5d60d9f71a 100644 --- a/R/utils_plots.R +++ b/R/utils_plots.R @@ -1104,11 +1104,17 @@ generate_nanoplot <- function( "" ) + if (rlang::is_integerish(y_scale_max) && rlang::is_integerish(y_scale_min)) { + y_axis_guide_vals_integerlike <- TRUE + } else { + y_axis_guide_vals_integerlike <- FALSE + } + y_value_max_label <- format_number_compactly( y_scale_max, currency = currency, - as_integer = y_vals_integerlike, + as_integer = y_axis_guide_vals_integerlike, fn = y_axis_fmt_fn ) @@ -1116,7 +1122,7 @@ generate_nanoplot <- function( format_number_compactly( y_scale_min, currency = currency, - as_integer = y_vals_integerlike, + as_integer = y_axis_guide_vals_integerlike, fn = y_axis_fmt_fn )